<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Data.Time.Format.ISO8601</span><span>
</span><span id="line-2"></span><span>    </span><span class="hs-special">(</span><span>
</span><span id="line-3"></span><span>        </span><span class="annot"><span class="hs-comment">-- * Format</span></span><span>
</span><span id="line-4"></span><span>        </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier">Format</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-5"></span><span>        </span><span class="annot"><a href="Data.Format.html#formatShowM"><span class="hs-identifier">formatShowM</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-6"></span><span>        </span><span class="annot"><a href="Data.Format.html#formatShow"><span class="hs-identifier">formatShow</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-7"></span><span>        </span><span class="annot"><a href="Data.Format.html#formatReadP"><span class="hs-identifier">formatReadP</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-8"></span><span>        </span><span class="annot"><a href="Data.Format.html#formatParseM"><span class="hs-identifier">formatParseM</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-9"></span><span>        </span><span class="annot"><span class="hs-comment">-- * Common formats</span></span><span>
</span><span id="line-10"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier">ISO8601</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-11"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#iso8601Show"><span class="hs-identifier">iso8601Show</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-12"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#iso8601ParseM"><span class="hs-identifier">iso8601ParseM</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-13"></span><span>        </span><span class="annot"><span class="hs-comment">-- * All formats</span></span><span>
</span><span id="line-14"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier">FormatExtension</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-15"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#formatReadPExtension"><span class="hs-identifier">formatReadPExtension</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-16"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#parseFormatExtension"><span class="hs-identifier">parseFormatExtension</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-17"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#calendarFormat"><span class="hs-identifier">calendarFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-18"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#yearMonthFormat"><span class="hs-identifier">yearMonthFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-19"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier">yearFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-20"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#centuryFormat"><span class="hs-identifier">centuryFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-21"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedCalendarFormat"><span class="hs-identifier">expandedCalendarFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-22"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedYearMonthFormat"><span class="hs-identifier">expandedYearMonthFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-23"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier">expandedYearFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-24"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedCenturyFormat"><span class="hs-identifier">expandedCenturyFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-25"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ordinalDateFormat"><span class="hs-identifier">ordinalDateFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-26"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedOrdinalDateFormat"><span class="hs-identifier">expandedOrdinalDateFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-27"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#weekDateFormat"><span class="hs-identifier">weekDateFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-28"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#yearWeekFormat"><span class="hs-identifier">yearWeekFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-29"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedWeekDateFormat"><span class="hs-identifier">expandedWeekDateFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-30"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedYearWeekFormat"><span class="hs-identifier">expandedYearWeekFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-31"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeOfDayFormat"><span class="hs-identifier">timeOfDayFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-32"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#hourMinuteFormat"><span class="hs-identifier">hourMinuteFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-33"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#hourFormat"><span class="hs-identifier">hourFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-34"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#withTimeDesignator"><span class="hs-identifier">withTimeDesignator</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-35"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#withUTCDesignator"><span class="hs-identifier">withUTCDesignator</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-36"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeOffsetFormat"><span class="hs-identifier">timeOffsetFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-37"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeOfDayAndOffsetFormat"><span class="hs-identifier">timeOfDayAndOffsetFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-38"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#localTimeFormat"><span class="hs-identifier">localTimeFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-39"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#zonedTimeFormat"><span class="hs-identifier">zonedTimeFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-40"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#utcTimeFormat"><span class="hs-identifier">utcTimeFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-41"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#dayAndTimeFormat"><span class="hs-identifier">dayAndTimeFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-42"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeAndOffsetFormat"><span class="hs-identifier">timeAndOffsetFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-43"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#durationDaysFormat"><span class="hs-identifier">durationDaysFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-44"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#durationTimeFormat"><span class="hs-identifier">durationTimeFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-45"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#alternativeDurationDaysFormat"><span class="hs-identifier">alternativeDurationDaysFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-46"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#alternativeDurationTimeFormat"><span class="hs-identifier">alternativeDurationTimeFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-47"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#intervalFormat"><span class="hs-identifier">intervalFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-48"></span><span>        </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#recurringIntervalFormat"><span class="hs-identifier">recurringIntervalFormat</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-49"></span><span>    </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span class="hs-cpp">

#if MIN_VERSION_base(4,9,0)
</span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Monad.Fail.html#"><span class="hs-identifier">Control.Monad.Fail</span></a></span><span>
</span><span id="line-53"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Prelude.html#"><span class="hs-identifier">Prelude</span></a></span><span> </span><span class="hs-keyword">hiding</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Control.Monad.Fail.html#fail"><span class="hs-identifier">fail</span></a></span><span class="hs-special">)</span><span class="hs-cpp">
#endif
</span><span class="hs-cpp">#if MIN_VERSION_base(4,8,0)
</span><span class="hs-cpp">#else
</span><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.Monoid</span><span class="hs-cpp">
#endif
</span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Ratio.html#"><span class="hs-identifier">Data.Ratio</span></a></span><span>
</span><span id="line-60"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#"><span class="hs-identifier">Data.Fixed</span></a></span><span>
</span><span id="line-61"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#"><span class="hs-identifier">Text.ParserCombinators.ReadP</span></a></span><span>
</span><span id="line-62"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Format.html"><span class="hs-identifier">Data.Format</span></a></span><span>
</span><span id="line-63"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.html"><span class="hs-identifier">Data.Time</span></a></span><span>
</span><span id="line-64"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.OrdinalDate.html"><span class="hs-identifier">Data.Time.Calendar.OrdinalDate</span></a></span><span>
</span><span id="line-65"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.WeekDate.html"><span class="hs-identifier">Data.Time.Calendar.WeekDate</span></a></span><span>
</span><span id="line-66"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="Data.Time.Calendar.Private.html"><span class="hs-identifier">Data.Time.Calendar.Private</span></a></span><span>
</span><span id="line-67"></span><span>
</span><span id="line-68"></span><span class="hs-keyword">data</span><span> </span><span id="FormatExtension"><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-var">FormatExtension</span></a></span></span><span> </span><span class="hs-glyph">=</span><span>
</span><span id="line-69"></span><span>    </span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 2.3.4. Use hyphens and colons.</span><span>
</span><span id="line-70"></span><span>    </span><span id="ExtendedFormat"><span class="annot"><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span></span><span> </span><span class="hs-glyph">|</span><span>
</span><span id="line-71"></span><span>    </span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 2.3.3. Omit hyphens and colons. &quot;The basic format should be avoided in plain text.&quot;</span><span>
</span><span id="line-72"></span><span>    </span><span id="BasicFormat"><span class="annot"><a href="Data.Time.Format.ISO8601.html#BasicFormat"><span class="hs-identifier hs-var">BasicFormat</span></a></span></span><span>
</span><span id="line-73"></span><span>
</span><span id="line-74"></span><span class="hs-comment">-- | Read a value in either extended or basic format</span><span>
</span><span id="line-75"></span><span id="local-6989586621679075671"><span class="annot"><a href="Data.Time.Format.ISO8601.html#formatReadPExtension"><span class="hs-identifier hs-type">formatReadPExtension</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075671"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/Text.ParserCombinators.ReadP.html#ReadP"><span class="hs-identifier hs-type">ReadP</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075671"><span class="hs-identifier hs-type">t</span></a></span></span><span>
</span><span id="line-76"></span><span id="formatReadPExtension"><span class="annot"><span class="annottext">formatReadPExtension :: forall t. (FormatExtension -&gt; Format t) -&gt; ReadP t
</span><a href="Data.Time.Format.ISO8601.html#formatReadPExtension"><span class="hs-identifier hs-var hs-var">formatReadPExtension</span></a></span></span><span> </span><span id="local-6989586621679075300"><span class="annot"><span class="annottext">FormatExtension -&gt; Format t
</span><a href="#local-6989586621679075300"><span class="hs-identifier hs-var">ff</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format t -&gt; ReadP t
forall t. Format t -&gt; ReadP t
</span><a href="Data.Format.html#formatReadP"><span class="hs-identifier hs-var hs-var">formatReadP</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatExtension -&gt; Format t
</span><a href="#local-6989586621679075300"><span class="hs-identifier hs-var">ff</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">ReadP t -&gt; ReadP t -&gt; ReadP t
forall a. ReadP a -&gt; ReadP a -&gt; ReadP a
</span><a href="../../base/src/Text.ParserCombinators.ReadP.html#%2B%2B%2B"><span class="hs-operator hs-var">+++</span></a></span><span> </span><span class="annot"><span class="annottext">Format t -&gt; ReadP t
forall t. Format t -&gt; ReadP t
</span><a href="Data.Format.html#formatReadP"><span class="hs-identifier hs-var hs-var">formatReadP</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatExtension -&gt; Format t
</span><a href="#local-6989586621679075300"><span class="hs-identifier hs-var">ff</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#BasicFormat"><span class="hs-identifier hs-var">BasicFormat</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-77"></span><span>
</span><span id="line-78"></span><span class="hs-comment">-- | Parse a value in either extended or basic format</span><span>
</span><span id="line-79"></span><span id="local-6989586621679075665"><span id="local-6989586621679075666"><span class="annot"><a href="Data.Time.Format.ISO8601.html#parseFormatExtension"><span class="hs-identifier hs-type">parseFormatExtension</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-cpp">
#if MIN_VERSION_base(4,9,0)
</span><span>    </span><span class="annot"><a href="../../base/src/Control.Monad.Fail.html#MonadFail"><span class="hs-identifier hs-type">MonadFail</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075666"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-cpp">
#else
</span><span>    </span><span class="hs-identifier">Monad</span><span> </span><span class="hs-identifier">m</span><span class="hs-cpp">
#endif
</span><span>    </span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075665"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679075666"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075665"><span class="hs-identifier hs-type">t</span></a></span></span></span><span>
</span><span id="line-86"></span><span id="parseFormatExtension"><span class="annot"><span class="annottext">parseFormatExtension :: forall (m :: * -&gt; *) t.
MonadFail m =&gt;
(FormatExtension -&gt; Format t) -&gt; String -&gt; m t
</span><a href="Data.Time.Format.ISO8601.html#parseFormatExtension"><span class="hs-identifier hs-var hs-var">parseFormatExtension</span></a></span></span><span> </span><span id="local-6989586621679075296"><span class="annot"><span class="annottext">FormatExtension -&gt; Format t
</span><a href="#local-6989586621679075296"><span class="hs-identifier hs-var">ff</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ReadP t -&gt; String -&gt; m t
forall (m :: * -&gt; *) t. MonadFail m =&gt; ReadP t -&gt; String -&gt; m t
</span><a href="Data.Format.html#parseReader"><span class="hs-identifier hs-var">parseReader</span></a></span><span> </span><span class="annot"><span class="annottext">(ReadP t -&gt; String -&gt; m t) -&gt; ReadP t -&gt; String -&gt; m t
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(FormatExtension -&gt; Format t) -&gt; ReadP t
forall t. (FormatExtension -&gt; Format t) -&gt; ReadP t
</span><a href="Data.Time.Format.ISO8601.html#formatReadPExtension"><span class="hs-identifier hs-var">formatReadPExtension</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format t
</span><a href="#local-6989586621679075296"><span class="hs-identifier hs-var">ff</span></a></span><span>
</span><span id="line-87"></span><span>
</span><span id="line-88"></span><span id="local-6989586621679075656"><span id="local-6989586621679075657"><span class="annot"><a href="Data.Time.Format.ISO8601.html#sepFormat"><span class="hs-identifier hs-type">sepFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075657"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075656"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679075657"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075656"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-89"></span><span id="sepFormat"><span class="annot"><span class="annottext">sepFormat :: forall a b. String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#sepFormat"><span class="hs-identifier hs-var hs-var">sepFormat</span></a></span></span><span> </span><span id="local-6989586621679075291"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679075291"><span class="hs-identifier hs-var">sep</span></a></span></span><span> </span><span id="local-6989586621679075290"><span class="annot"><span class="annottext">Format a
</span><a href="#local-6989586621679075290"><span class="hs-identifier hs-var">fa</span></a></span></span><span> </span><span id="local-6989586621679075289"><span class="annot"><span class="annottext">Format b
</span><a href="#local-6989586621679075289"><span class="hs-identifier hs-var">fb</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Format a
</span><a href="#local-6989586621679075290"><span class="hs-identifier hs-var">fa</span></a></span><span> </span><span class="annot"><span class="annottext">Format a -&gt; Format () -&gt; Format a
forall (f :: * -&gt; *) a. Productish f =&gt; f a -&gt; f () -&gt; f a
</span><a href="Data.Format.html#%3C%2A%2A"><span class="hs-operator hs-var">&lt;**</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679075291"><span class="hs-identifier hs-var">sep</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Format a -&gt; Format b -&gt; Format (a, b)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Format b
</span><a href="#local-6989586621679075289"><span class="hs-identifier hs-var">fb</span></a></span><span>
</span><span id="line-90"></span><span>
</span><span id="line-91"></span><span id="local-6989586621679075648"><span id="local-6989586621679075649"><span class="annot"><a href="Data.Time.Format.ISO8601.html#dashFormat"><span class="hs-identifier hs-type">dashFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075649"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075648"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679075649"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075648"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-92"></span><span id="dashFormat"><span class="annot"><span class="annottext">dashFormat :: forall a b. Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#dashFormat"><span class="hs-identifier hs-var hs-var">dashFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
forall a b. String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#sepFormat"><span class="hs-identifier hs-var">sepFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;-&quot;</span></span><span>
</span><span id="line-93"></span><span>
</span><span id="line-94"></span><span id="local-6989586621679075283"><span id="local-6989586621679075284"><span class="annot"><a href="Data.Time.Format.ISO8601.html#colnFormat"><span class="hs-identifier hs-type">colnFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075284"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075283"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679075284"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075283"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-95"></span><span id="colnFormat"><span class="annot"><span class="annottext">colnFormat :: forall a b. Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#colnFormat"><span class="hs-identifier hs-var hs-var">colnFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
forall a b. String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#sepFormat"><span class="hs-identifier hs-var">sepFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;:&quot;</span></span><span>
</span><span id="line-96"></span><span>
</span><span id="line-97"></span><span id="local-6989586621679075642"><span id="local-6989586621679075643"><span class="annot"><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-type">extDashFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075643"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075642"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679075643"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075642"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-98"></span><span id="extDashFormat"><span class="annot"><span class="annottext">extDashFormat :: forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var hs-var">extDashFormat</span></a></span></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format a -&gt; Format b -&gt; Format (a, b)
forall a b. Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#dashFormat"><span class="hs-identifier hs-var">dashFormat</span></a></span><span>
</span><span id="line-99"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#BasicFormat"><span class="hs-identifier hs-var">BasicFormat</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format a -&gt; Format b -&gt; Format (a, b)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">(&lt;**&gt;)</span></a></span><span>
</span><span id="line-100"></span><span>
</span><span id="line-101"></span><span id="local-6989586621679075278"><span id="local-6989586621679075279"><span class="annot"><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-type">extColonFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075279"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075278"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679075279"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075278"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-102"></span><span id="extColonFormat"><span class="annot"><span class="annottext">extColonFormat :: forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var hs-var">extColonFormat</span></a></span></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format a -&gt; Format b -&gt; Format (a, b)
forall a b. Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#colnFormat"><span class="hs-identifier hs-var">colnFormat</span></a></span><span>
</span><span id="line-103"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var">extColonFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#BasicFormat"><span class="hs-identifier hs-var">BasicFormat</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format a -&gt; Format b -&gt; Format (a, b)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">(&lt;**&gt;)</span></a></span><span>
</span><span id="line-104"></span><span>
</span><span id="line-105"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedYearFormat%27"><span class="hs-identifier hs-type">expandedYearFormat'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-106"></span><span id="expandedYearFormat%27"><span class="annot"><span class="annottext">expandedYearFormat' :: Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat%27"><span class="hs-identifier hs-var hs-var">expandedYearFormat'</span></a></span></span><span> </span><span id="local-6989586621679075274"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075274"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Integer
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#PosNegSign"><span class="hs-identifier hs-var">PosNegSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075274"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-107"></span><span>
</span><span id="line-108"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#yearFormat%27"><span class="hs-identifier hs-type">yearFormat'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-109"></span><span id="yearFormat%27"><span class="annot"><span class="annottext">yearFormat' :: Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat%27"><span class="hs-identifier hs-var hs-var">yearFormat'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Integer
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span class="hs-special">)</span><span>
</span><span id="line-110"></span><span>
</span><span id="line-111"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#monthFormat"><span class="hs-identifier hs-type">monthFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-112"></span><span id="monthFormat"><span class="annot"><span class="annottext">monthFormat :: Format Int
</span><a href="Data.Time.Format.ISO8601.html#monthFormat"><span class="hs-identifier hs-var hs-var">monthFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-113"></span><span>
</span><span id="line-114"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#dayOfMonthFormat"><span class="hs-identifier hs-type">dayOfMonthFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-115"></span><span id="dayOfMonthFormat"><span class="annot"><span class="annottext">dayOfMonthFormat :: Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfMonthFormat"><span class="hs-identifier hs-var hs-var">dayOfMonthFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-116"></span><span>
</span><span id="line-117"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#dayOfYearFormat"><span class="hs-identifier hs-type">dayOfYearFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-118"></span><span id="dayOfYearFormat"><span class="annot"><span class="annottext">dayOfYearFormat :: Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfYearFormat"><span class="hs-identifier hs-var hs-var">dayOfYearFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">3</span></span><span class="hs-special">)</span><span>
</span><span id="line-119"></span><span>
</span><span id="line-120"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#weekOfYearFormat"><span class="hs-identifier hs-type">weekOfYearFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-121"></span><span id="weekOfYearFormat"><span class="annot"><span class="annottext">weekOfYearFormat :: Format Int
</span><a href="Data.Time.Format.ISO8601.html#weekOfYearFormat"><span class="hs-identifier hs-var hs-var">weekOfYearFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;W&quot;</span></span><span> </span><span class="annot"><span class="annottext">Format () -&gt; Format Int -&gt; Format Int
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-122"></span><span>
</span><span id="line-123"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#dayOfWeekFormat"><span class="hs-identifier hs-type">dayOfWeekFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-124"></span><span id="dayOfWeekFormat"><span class="annot"><span class="annottext">dayOfWeekFormat :: Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfWeekFormat"><span class="hs-identifier hs-var hs-var">dayOfWeekFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span class="hs-special">)</span><span>
</span><span id="line-125"></span><span>
</span><span id="line-126"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#hourFormat%27"><span class="hs-identifier hs-type">hourFormat'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-127"></span><span id="hourFormat%27"><span class="annot"><span class="annottext">hourFormat' :: Format Int
</span><a href="Data.Time.Format.ISO8601.html#hourFormat%27"><span class="hs-identifier hs-var hs-var">hourFormat'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-128"></span><span>
</span><span id="line-129"></span><span class="hs-keyword">data</span><span> </span><span id="E14"><span class="annot"><a href="Data.Time.Format.ISO8601.html#E14"><span class="hs-identifier hs-var">E14</span></a></span></span><span>
</span><span id="line-130"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#HasResolution"><span class="hs-identifier hs-type">HasResolution</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#E14"><span class="hs-identifier hs-type">E14</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-131"></span><span>    </span><span id="local-6989586621679075259"><span class="annot"><span class="annottext">resolution :: forall (p :: * -&gt; *). p E14 -&gt; Integer
</span><a href="../../base/src/Data.Fixed.html#resolution"><span class="hs-identifier hs-var hs-var hs-var hs-var">resolution</span></a></span></span><span> </span><span class="annot"><span class="annottext">p E14
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">100000000000000</span></span><span>
</span><span id="line-132"></span><span class="hs-keyword">data</span><span> </span><span id="E16"><span class="annot"><a href="Data.Time.Format.ISO8601.html#E16"><span class="hs-identifier hs-var">E16</span></a></span></span><span>
</span><span id="line-133"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#HasResolution"><span class="hs-identifier hs-type">HasResolution</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#E16"><span class="hs-identifier hs-type">E16</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-134"></span><span>    </span><span id="local-6989586621679075256"><span class="annot"><span class="annottext">resolution :: forall (p :: * -&gt; *). p E16 -&gt; Integer
</span><a href="#local-6989586621679075256"><span class="hs-identifier hs-var hs-var hs-var hs-var">resolution</span></a></span></span><span> </span><span class="annot"><span class="annottext">p E16
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">10000000000000000</span></span><span>
</span><span id="line-135"></span><span>
</span><span id="line-136"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#hourDecimalFormat"><span class="hs-identifier hs-type">hourDecimalFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Fixed.html#Fixed"><span class="hs-identifier hs-type">Fixed</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#E16"><span class="hs-identifier hs-type">E16</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- need four extra decimal places for hours</span><span>
</span><span id="line-137"></span><span id="hourDecimalFormat"><span class="annot"><span class="annottext">hourDecimalFormat :: Format (Fixed E16)
</span><a href="Data.Time.Format.ISO8601.html#hourDecimalFormat"><span class="hs-identifier hs-var hs-var">hourDecimalFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format (Fixed E16)
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#decimalFormat"><span class="hs-identifier hs-var">decimalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-138"></span><span>
</span><span id="line-139"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#minuteFormat"><span class="hs-identifier hs-type">minuteFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span>
</span><span id="line-140"></span><span id="minuteFormat"><span class="annot"><span class="annottext">minuteFormat :: Format Int
</span><a href="Data.Time.Format.ISO8601.html#minuteFormat"><span class="hs-identifier hs-var hs-var">minuteFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-141"></span><span>
</span><span id="line-142"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#minuteDecimalFormat"><span class="hs-identifier hs-type">minuteDecimalFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Fixed.html#Fixed"><span class="hs-identifier hs-type">Fixed</span></a></span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#E14"><span class="hs-identifier hs-type">E14</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- need two extra decimal places for minutes</span><span>
</span><span id="line-143"></span><span id="minuteDecimalFormat"><span class="annot"><span class="annottext">minuteDecimalFormat :: Format (Fixed E14)
</span><a href="Data.Time.Format.ISO8601.html#minuteDecimalFormat"><span class="hs-identifier hs-var hs-var">minuteDecimalFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format (Fixed E14)
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#decimalFormat"><span class="hs-identifier hs-var">decimalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-144"></span><span>
</span><span id="line-145"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#secondFormat"><span class="hs-identifier hs-type">secondFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span>
</span><span id="line-146"></span><span id="secondFormat"><span class="annot"><span class="annottext">secondFormat :: Format Pico
</span><a href="Data.Time.Format.ISO8601.html#secondFormat"><span class="hs-identifier hs-var hs-var">secondFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Pico
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#decimalFormat"><span class="hs-identifier hs-var">decimalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-147"></span><span>
</span><span id="line-148"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#mapGregorian"><span class="hs-identifier hs-type">mapGregorian</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-149"></span><span id="mapGregorian"><span class="annot"><span class="annottext">mapGregorian :: Format (Integer, (Int, Int)) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapGregorian"><span class="hs-identifier hs-var hs-var">mapGregorian</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((Integer, (Int, Int)) -&gt; Maybe Day)
-&gt; (Day -&gt; Maybe (Integer, (Int, Int)))
-&gt; Format (Integer, (Int, Int))
-&gt; Format Day
forall a b.
(a -&gt; Maybe b) -&gt; (b -&gt; Maybe a) -&gt; Format a -&gt; Format b
</span><a href="Data.Format.html#mapMFormat"><span class="hs-identifier hs-var">mapMFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075248"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075248"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075247"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075247"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075246"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075246"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.Gregorian.html#fromGregorianValid"><span class="hs-identifier hs-var">fromGregorianValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075248"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075247"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075246"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679075244"><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075244"><span class="hs-identifier hs-var">day</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075243"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075243"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075242"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075242"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075241"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075241"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Integer, (Int, Int)) -&gt; Maybe (Integer, (Int, Int))
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075243"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075242"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075241"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Maybe (Integer, (Int, Int)))
-&gt; (Integer, Int, Int) -&gt; Maybe (Integer, (Int, Int))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.Gregorian.html#toGregorian"><span class="hs-identifier hs-var">toGregorian</span></a></span><span> </span><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075244"><span class="hs-identifier hs-var">day</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-150"></span><span>
</span><span id="line-151"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#mapOrdinalDate"><span class="hs-identifier hs-type">mapOrdinalDate</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-152"></span><span id="mapOrdinalDate"><span class="annot"><span class="annottext">mapOrdinalDate :: Format (Integer, Int) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapOrdinalDate"><span class="hs-identifier hs-var hs-var">mapOrdinalDate</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((Integer, Int) -&gt; Maybe Day)
-&gt; (Day -&gt; Maybe (Integer, Int))
-&gt; Format (Integer, Int)
-&gt; Format Day
forall a b.
(a -&gt; Maybe b) -&gt; (b -&gt; Maybe a) -&gt; Format a -&gt; Format b
</span><a href="Data.Format.html#mapMFormat"><span class="hs-identifier hs-var">mapMFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075238"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075238"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075237"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075237"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.OrdinalDate.html#fromOrdinalDateValid"><span class="hs-identifier hs-var">fromOrdinalDateValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075238"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075237"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Integer, Int) -&gt; Maybe (Integer, Int)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((Integer, Int) -&gt; Maybe (Integer, Int))
-&gt; (Day -&gt; (Integer, Int)) -&gt; Day -&gt; Maybe (Integer, Int)
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int)
</span><a href="Data.Time.Calendar.OrdinalDate.html#toOrdinalDate"><span class="hs-identifier hs-var">toOrdinalDate</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-153"></span><span>
</span><span id="line-154"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#mapWeekDate"><span class="hs-identifier hs-type">mapWeekDate</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-155"></span><span id="mapWeekDate"><span class="annot"><span class="annottext">mapWeekDate :: Format (Integer, (Int, Int)) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapWeekDate"><span class="hs-identifier hs-var hs-var">mapWeekDate</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((Integer, (Int, Int)) -&gt; Maybe Day)
-&gt; (Day -&gt; Maybe (Integer, (Int, Int)))
-&gt; Format (Integer, (Int, Int))
-&gt; Format Day
forall a b.
(a -&gt; Maybe b) -&gt; (b -&gt; Maybe a) -&gt; Format a -&gt; Format b
</span><a href="Data.Format.html#mapMFormat"><span class="hs-identifier hs-var">mapMFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075232"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075232"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075231"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075231"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075230"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075230"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Int -&gt; Int -&gt; Maybe Day
</span><a href="Data.Time.Calendar.WeekDate.html#fromWeekDateValid"><span class="hs-identifier hs-var">fromWeekDateValid</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075232"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075231"><span class="hs-identifier hs-var">w</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075230"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span id="local-6989586621679075228"><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075228"><span class="hs-identifier hs-var">day</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075227"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075227"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075226"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075226"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075225"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075225"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Integer, (Int, Int)) -&gt; Maybe (Integer, (Int, Int))
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075227"><span class="hs-identifier hs-var">y</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075226"><span class="hs-identifier hs-var">w</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075225"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">((Integer, Int, Int) -&gt; Maybe (Integer, (Int, Int)))
-&gt; (Integer, Int, Int) -&gt; Maybe (Integer, (Int, Int))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Day -&gt; (Integer, Int, Int)
</span><a href="Data.Time.Calendar.WeekDate.html#toWeekDate"><span class="hs-identifier hs-var">toWeekDate</span></a></span><span> </span><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075228"><span class="hs-identifier hs-var">day</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-156"></span><span>
</span><span id="line-157"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#mapTimeOfDay"><span class="hs-identifier hs-type">mapTimeOfDay</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/Data.Fixed.html#Pico"><span class="hs-identifier hs-type">Pico</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span>
</span><span id="line-158"></span><span id="mapTimeOfDay"><span class="annot"><span class="annottext">mapTimeOfDay :: Format (Int, (Int, Pico)) -&gt; Format TimeOfDay
</span><a href="Data.Time.Format.ISO8601.html#mapTimeOfDay"><span class="hs-identifier hs-var hs-var">mapTimeOfDay</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((Int, (Int, Pico)) -&gt; Maybe TimeOfDay)
-&gt; (TimeOfDay -&gt; Maybe (Int, (Int, Pico)))
-&gt; Format (Int, (Int, Pico))
-&gt; Format TimeOfDay
forall a b.
(a -&gt; Maybe b) -&gt; (b -&gt; Maybe a) -&gt; Format a -&gt; Format b
</span><a href="Data.Format.html#mapMFormat"><span class="hs-identifier hs-var">mapMFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075222"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075222"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075221"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075221"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075220"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075220"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; Maybe TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#makeTimeOfDayValid"><span class="hs-identifier hs-var">makeTimeOfDayValid</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075222"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075221"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075220"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span id="local-6989586621679075217"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075217"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span id="local-6989586621679075216"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075216"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679075215"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075215"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">(Int, (Int, Pico)) -&gt; Maybe (Int, (Int, Pico))
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075217"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075216"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075215"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-159"></span><span>
</span><span id="line-160"></span><span>
</span><span id="line-161"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.2</span><span>
</span><span id="line-162"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#calendarFormat"><span class="hs-identifier hs-type">calendarFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-163"></span><span id="calendarFormat"><span class="annot"><span class="annottext">calendarFormat :: FormatExtension -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#calendarFormat"><span class="hs-identifier hs-var hs-var">calendarFormat</span></a></span></span><span> </span><span id="local-6989586621679075214"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075214"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format (Integer, (Int, Int)) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapGregorian"><span class="hs-identifier hs-var">mapGregorian</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, (Int, Int)) -&gt; Format Day)
-&gt; Format (Integer, (Int, Int)) -&gt; Format Day
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer
-&gt; Format (Int, Int)
-&gt; Format (Integer, (Int, Int))
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075214"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier hs-var">yearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, Int) -&gt; Format (Integer, (Int, Int)))
-&gt; Format (Int, Int) -&gt; Format (Integer, (Int, Int))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Int -&gt; Format Int -&gt; Format (Int, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075214"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#monthFormat"><span class="hs-identifier hs-var">monthFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfMonthFormat"><span class="hs-identifier hs-var">dayOfMonthFormat</span></a></span><span>
</span><span id="line-164"></span><span>
</span><span id="line-165"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.3(a)</span><span>
</span><span id="line-166"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#yearMonthFormat"><span class="hs-identifier hs-type">yearMonthFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span>
</span><span id="line-167"></span><span id="yearMonthFormat"><span class="annot"><span class="annottext">yearMonthFormat :: Format (Integer, Int)
</span><a href="Data.Time.Format.ISO8601.html#yearMonthFormat"><span class="hs-identifier hs-var hs-var">yearMonthFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier hs-var">yearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Integer -&gt; Format Int -&gt; Format (Integer, Int)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;-&quot;</span></span><span> </span><span class="annot"><span class="annottext">Format () -&gt; Format Int -&gt; Format Int
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#monthFormat"><span class="hs-identifier hs-var">monthFormat</span></a></span><span>
</span><span id="line-168"></span><span>
</span><span id="line-169"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.3(b)</span><span>
</span><span id="line-170"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier hs-type">yearFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-171"></span><span id="yearFormat"><span class="annot"><span class="annottext">yearFormat :: Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier hs-var hs-var">yearFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat%27"><span class="hs-identifier hs-var">yearFormat'</span></a></span><span>
</span><span id="line-172"></span><span>
</span><span id="line-173"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.3(c)</span><span>
</span><span id="line-174"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#centuryFormat"><span class="hs-identifier hs-type">centuryFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-175"></span><span id="centuryFormat"><span class="annot"><span class="annottext">centuryFormat :: Format Integer
</span><a href="Data.Time.Format.ISO8601.html#centuryFormat"><span class="hs-identifier hs-var hs-var">centuryFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Integer
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-176"></span><span>
</span><span id="line-177"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.4(a)</span><span>
</span><span id="line-178"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedCalendarFormat"><span class="hs-identifier hs-type">expandedCalendarFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-179"></span><span id="expandedCalendarFormat"><span class="annot"><span class="annottext">expandedCalendarFormat :: Int -&gt; FormatExtension -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#expandedCalendarFormat"><span class="hs-identifier hs-var hs-var">expandedCalendarFormat</span></a></span></span><span> </span><span id="local-6989586621679075213"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075213"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679075212"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075212"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format (Integer, (Int, Int)) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapGregorian"><span class="hs-identifier hs-var">mapGregorian</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, (Int, Int)) -&gt; Format Day)
-&gt; Format (Integer, (Int, Int)) -&gt; Format Day
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer
-&gt; Format (Int, Int)
-&gt; Format (Integer, (Int, Int))
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075212"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier hs-var">expandedYearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075213"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Int, Int) -&gt; Format (Integer, (Int, Int)))
-&gt; Format (Int, Int) -&gt; Format (Integer, (Int, Int))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Int -&gt; Format Int -&gt; Format (Int, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075212"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#monthFormat"><span class="hs-identifier hs-var">monthFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfMonthFormat"><span class="hs-identifier hs-var">dayOfMonthFormat</span></a></span><span>
</span><span id="line-180"></span><span>
</span><span id="line-181"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.4(b)</span><span>
</span><span id="line-182"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedYearMonthFormat"><span class="hs-identifier hs-type">expandedYearMonthFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span>
</span><span id="line-183"></span><span id="expandedYearMonthFormat"><span class="annot"><span class="annottext">expandedYearMonthFormat :: Int -&gt; Format (Integer, Int)
</span><a href="Data.Time.Format.ISO8601.html#expandedYearMonthFormat"><span class="hs-identifier hs-var hs-var">expandedYearMonthFormat</span></a></span></span><span> </span><span id="local-6989586621679075211"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075211"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format Integer -&gt; Format Int -&gt; Format (Integer, Int)
forall a b. Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#dashFormat"><span class="hs-identifier hs-var">dashFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier hs-var">expandedYearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075211"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#monthFormat"><span class="hs-identifier hs-var">monthFormat</span></a></span><span>
</span><span id="line-184"></span><span>
</span><span id="line-185"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.4(c)</span><span>
</span><span id="line-186"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier hs-type">expandedYearFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-187"></span><span id="expandedYearFormat"><span class="annot"><span class="annottext">expandedYearFormat :: Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier hs-var hs-var">expandedYearFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat%27"><span class="hs-identifier hs-var">expandedYearFormat'</span></a></span><span>
</span><span id="line-188"></span><span>
</span><span id="line-189"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.2.4(d)</span><span>
</span><span id="line-190"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedCenturyFormat"><span class="hs-identifier hs-type">expandedCenturyFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-191"></span><span id="expandedCenturyFormat"><span class="annot"><span class="annottext">expandedCenturyFormat :: Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedCenturyFormat"><span class="hs-identifier hs-var hs-var">expandedCenturyFormat</span></a></span></span><span> </span><span id="local-6989586621679075210"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075210"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Integer
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#PosNegSign"><span class="hs-identifier hs-var">PosNegSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075210"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-192"></span><span>
</span><span id="line-193"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.3.2</span><span>
</span><span id="line-194"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ordinalDateFormat"><span class="hs-identifier hs-type">ordinalDateFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-195"></span><span id="ordinalDateFormat"><span class="annot"><span class="annottext">ordinalDateFormat :: FormatExtension -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#ordinalDateFormat"><span class="hs-identifier hs-var hs-var">ordinalDateFormat</span></a></span></span><span> </span><span id="local-6989586621679075209"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075209"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format (Integer, Int) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapOrdinalDate"><span class="hs-identifier hs-var">mapOrdinalDate</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, Int) -&gt; Format Day)
-&gt; Format (Integer, Int) -&gt; Format Day
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer -&gt; Format Int -&gt; Format (Integer, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075209"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier hs-var">yearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfYearFormat"><span class="hs-identifier hs-var">dayOfYearFormat</span></a></span><span>
</span><span id="line-196"></span><span>
</span><span id="line-197"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.3.3</span><span>
</span><span id="line-198"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedOrdinalDateFormat"><span class="hs-identifier hs-type">expandedOrdinalDateFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-199"></span><span id="expandedOrdinalDateFormat"><span class="annot"><span class="annottext">expandedOrdinalDateFormat :: Int -&gt; FormatExtension -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#expandedOrdinalDateFormat"><span class="hs-identifier hs-var hs-var">expandedOrdinalDateFormat</span></a></span></span><span> </span><span id="local-6989586621679075208"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075208"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679075207"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075207"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format (Integer, Int) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapOrdinalDate"><span class="hs-identifier hs-var">mapOrdinalDate</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, Int) -&gt; Format Day)
-&gt; Format (Integer, Int) -&gt; Format Day
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer -&gt; Format Int -&gt; Format (Integer, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075207"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier hs-var">expandedYearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075208"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfYearFormat"><span class="hs-identifier hs-var">dayOfYearFormat</span></a></span><span>
</span><span id="line-200"></span><span>
</span><span id="line-201"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.4.2</span><span>
</span><span id="line-202"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#weekDateFormat"><span class="hs-identifier hs-type">weekDateFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-203"></span><span id="weekDateFormat"><span class="annot"><span class="annottext">weekDateFormat :: FormatExtension -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#weekDateFormat"><span class="hs-identifier hs-var hs-var">weekDateFormat</span></a></span></span><span> </span><span id="local-6989586621679075206"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075206"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format (Integer, (Int, Int)) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapWeekDate"><span class="hs-identifier hs-var">mapWeekDate</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, (Int, Int)) -&gt; Format Day)
-&gt; Format (Integer, (Int, Int)) -&gt; Format Day
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer
-&gt; Format (Int, Int)
-&gt; Format (Integer, (Int, Int))
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075206"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier hs-var">yearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, Int) -&gt; Format (Integer, (Int, Int)))
-&gt; Format (Int, Int) -&gt; Format (Integer, (Int, Int))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Int -&gt; Format Int -&gt; Format (Int, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075206"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#weekOfYearFormat"><span class="hs-identifier hs-var">weekOfYearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfWeekFormat"><span class="hs-identifier hs-var">dayOfWeekFormat</span></a></span><span>
</span><span id="line-204"></span><span>
</span><span id="line-205"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.4.3</span><span>
</span><span id="line-206"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#yearWeekFormat"><span class="hs-identifier hs-type">yearWeekFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span>  </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span>
</span><span id="line-207"></span><span id="yearWeekFormat"><span class="annot"><span class="annottext">yearWeekFormat :: FormatExtension -&gt; Format (Integer, Int)
</span><a href="Data.Time.Format.ISO8601.html#yearWeekFormat"><span class="hs-identifier hs-var hs-var">yearWeekFormat</span></a></span></span><span> </span><span id="local-6989586621679075205"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075205"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer -&gt; Format Int -&gt; Format (Integer, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075205"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Integer
</span><a href="Data.Time.Format.ISO8601.html#yearFormat"><span class="hs-identifier hs-var">yearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#weekOfYearFormat"><span class="hs-identifier hs-var">weekOfYearFormat</span></a></span><span>
</span><span id="line-208"></span><span>
</span><span id="line-209"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.4.2</span><span>
</span><span id="line-210"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedWeekDateFormat"><span class="hs-identifier hs-type">expandedWeekDateFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span>
</span><span id="line-211"></span><span id="expandedWeekDateFormat"><span class="annot"><span class="annottext">expandedWeekDateFormat :: Int -&gt; FormatExtension -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#expandedWeekDateFormat"><span class="hs-identifier hs-var hs-var">expandedWeekDateFormat</span></a></span></span><span> </span><span id="local-6989586621679075204"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075204"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679075203"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075203"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format (Integer, (Int, Int)) -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#mapWeekDate"><span class="hs-identifier hs-var">mapWeekDate</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, (Int, Int)) -&gt; Format Day)
-&gt; Format (Integer, (Int, Int)) -&gt; Format Day
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer
-&gt; Format (Int, Int)
-&gt; Format (Integer, (Int, Int))
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075203"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier hs-var">expandedYearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075204"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Int, Int) -&gt; Format (Integer, (Int, Int)))
-&gt; Format (Int, Int) -&gt; Format (Integer, (Int, Int))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Int -&gt; Format Int -&gt; Format (Int, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075203"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#weekOfYearFormat"><span class="hs-identifier hs-var">weekOfYearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#dayOfWeekFormat"><span class="hs-identifier hs-var">dayOfWeekFormat</span></a></span><span>
</span><span id="line-212"></span><span>
</span><span id="line-213"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.1.4.3</span><span>
</span><span id="line-214"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#expandedYearWeekFormat"><span class="hs-identifier hs-type">expandedYearWeekFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span class="hs-special">,</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span>
</span><span id="line-215"></span><span id="expandedYearWeekFormat"><span class="annot"><span class="annottext">expandedYearWeekFormat :: Int -&gt; FormatExtension -&gt; Format (Integer, Int)
</span><a href="Data.Time.Format.ISO8601.html#expandedYearWeekFormat"><span class="hs-identifier hs-var hs-var">expandedYearWeekFormat</span></a></span></span><span> </span><span id="local-6989586621679075202"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075202"><span class="hs-identifier hs-var">n</span></a></span></span><span> </span><span id="local-6989586621679075201"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075201"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer -&gt; Format Int -&gt; Format (Integer, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075201"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Format Integer
</span><a href="Data.Time.Format.ISO8601.html#expandedYearFormat"><span class="hs-identifier hs-var">expandedYearFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075202"><span class="hs-identifier hs-var">n</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#weekOfYearFormat"><span class="hs-identifier hs-var">weekOfYearFormat</span></a></span><span>
</span><span id="line-216"></span><span>
</span><span id="line-217"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.2.2.2, 4.2.2.4(a)</span><span>
</span><span id="line-218"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeOfDayFormat"><span class="hs-identifier hs-type">timeOfDayFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span>
</span><span id="line-219"></span><span id="timeOfDayFormat"><span class="annot"><span class="annottext">timeOfDayFormat :: FormatExtension -&gt; Format TimeOfDay
</span><a href="Data.Time.Format.ISO8601.html#timeOfDayFormat"><span class="hs-identifier hs-var hs-var">timeOfDayFormat</span></a></span></span><span> </span><span id="local-6989586621679075200"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075200"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format (Int, (Int, Pico)) -&gt; Format TimeOfDay
</span><a href="Data.Time.Format.ISO8601.html#mapTimeOfDay"><span class="hs-identifier hs-var">mapTimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, (Int, Pico)) -&gt; Format TimeOfDay)
-&gt; Format (Int, (Int, Pico)) -&gt; Format TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Int -&gt; Format (Int, Pico) -&gt; Format (Int, (Int, Pico))
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var">extColonFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075200"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#hourFormat%27"><span class="hs-identifier hs-var">hourFormat'</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, Pico) -&gt; Format (Int, (Int, Pico)))
-&gt; Format (Int, Pico) -&gt; Format (Int, (Int, Pico))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Int -&gt; Format Pico -&gt; Format (Int, Pico)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var">extColonFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075200"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#minuteFormat"><span class="hs-identifier hs-var">minuteFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Pico
</span><a href="Data.Time.Format.ISO8601.html#secondFormat"><span class="hs-identifier hs-var">secondFormat</span></a></span><span>
</span><span id="line-220"></span><span>
</span><span id="line-221"></span><span class="hs-comment">-- workaround for the 'fromRational' in 'Fixed', which uses 'floor' instead of 'round'</span><span>
</span><span id="line-222"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#fromRationalRound"><span class="hs-identifier hs-type">fromRationalRound</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Real.html#Rational"><span class="hs-identifier hs-type">Rational</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.NominalDiffTime.html#NominalDiffTime"><span class="hs-identifier hs-type">NominalDiffTime</span></a></span><span>
</span><span id="line-223"></span><span id="fromRationalRound"><span class="annot"><span class="annottext">fromRationalRound :: Rational -&gt; NominalDiffTime
</span><a href="Data.Time.Format.ISO8601.html#fromRationalRound"><span class="hs-identifier hs-var hs-var">fromRationalRound</span></a></span></span><span> </span><span id="local-6989586621679075198"><span class="annot"><span class="annottext">Rational
</span><a href="#local-6989586621679075198"><span class="hs-identifier hs-var">r</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Rational -&gt; NominalDiffTime
forall a. Fractional a =&gt; Rational -&gt; a
</span><a href="../../base/src/GHC.Real.html#fromRational"><span class="hs-identifier hs-var">fromRational</span></a></span><span> </span><span class="annot"><span class="annottext">(Rational -&gt; NominalDiffTime) -&gt; Rational -&gt; NominalDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Rational -&gt; Integer
forall a b. (RealFrac a, Integral b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#round"><span class="hs-identifier hs-var">round</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Rational
</span><a href="#local-6989586621679075198"><span class="hs-identifier hs-var">r</span></a></span><span> </span><span class="annot"><span class="annottext">Rational -&gt; Rational -&gt; Rational
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Rational
</span><span class="hs-number">1000000000000</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Rational
forall a. Integral a =&gt; a -&gt; a -&gt; Ratio a
</span><a href="../../base/src/GHC.Real.html#%25"><span class="hs-operator hs-var">%</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">1000000000000</span></span><span>
</span><span id="line-224"></span><span>
</span><span id="line-225"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.2.2.3(a), 4.2.2.4(b)</span><span>
</span><span id="line-226"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#hourMinuteFormat"><span class="hs-identifier hs-type">hourMinuteFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span>
</span><span id="line-227"></span><span id="hourMinuteFormat"><span class="annot"><span class="annottext">hourMinuteFormat :: FormatExtension -&gt; Format TimeOfDay
</span><a href="Data.Time.Format.ISO8601.html#hourMinuteFormat"><span class="hs-identifier hs-var hs-var">hourMinuteFormat</span></a></span></span><span> </span><span id="local-6989586621679075194"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075194"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-228"></span><span>    </span><span id="local-6989586621679075179"><span class="annot"><span class="annottext">toTOD :: (a, a) -&gt; Maybe TimeOfDay
</span><a href="#local-6989586621679075179"><span class="hs-identifier hs-var hs-var">toTOD</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679075178"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679075178"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075177"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679075177"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; (Integer, TimeOfDay)
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#timeToDaysAndTimeOfDay"><span class="hs-identifier hs-var">timeToDaysAndTimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">(NominalDiffTime -&gt; (Integer, TimeOfDay))
-&gt; NominalDiffTime -&gt; (Integer, TimeOfDay)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Rational -&gt; NominalDiffTime
</span><a href="Data.Time.Format.ISO8601.html#fromRationalRound"><span class="hs-identifier hs-var">fromRationalRound</span></a></span><span> </span><span class="annot"><span class="annottext">(Rational -&gt; NominalDiffTime) -&gt; Rational -&gt; NominalDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; Rational
forall a. Real a =&gt; a -&gt; Rational
</span><a href="../../base/src/GHC.Real.html#toRational"><span class="hs-identifier hs-var">toRational</span></a></span><span> </span><span class="annot"><span class="annottext">(a -&gt; Rational) -&gt; a -&gt; Rational
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -&gt; a
forall a b. (Integral a, Num b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#fromIntegral"><span class="hs-identifier hs-var">fromIntegral</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679075178"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">a -&gt; a -&gt; a
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-number">3600</span></span><span> </span><span class="annot"><span class="annottext">a -&gt; a -&gt; a
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679075177"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; a -&gt; a
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-number">60</span></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-229"></span><span>        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span id="local-6989586621679075174"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075174"><span class="hs-identifier hs-var">tod</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075174"><span class="hs-identifier hs-var">tod</span></a></span><span>
</span><span id="line-230"></span><span>        </span><span class="annot"><span class="annottext">(Integer, TimeOfDay)
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe TimeOfDay
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-231"></span><span>    </span><span id="local-6989586621679075166"><span class="annot"><span class="annottext">fromTOD :: TimeOfDay -&gt; Maybe (b, a)
</span><a href="#local-6989586621679075166"><span class="hs-identifier hs-var hs-var">fromTOD</span></a></span></span><span> </span><span id="local-6989586621679075165"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075165"><span class="hs-identifier hs-var">tod</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-232"></span><span>        </span><span id="local-6989586621679075159"><span class="annot"><span class="annottext">mm :: a
</span><a href="#local-6989586621679075159"><span class="hs-identifier hs-var hs-var">mm</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">NominalDiffTime -&gt; a
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">(NominalDiffTime -&gt; a) -&gt; NominalDiffTime -&gt; a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; TimeOfDay -&gt; NominalDiffTime
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#daysAndTimeOfDayToTime"><span class="hs-identifier hs-var">daysAndTimeOfDayToTime</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075165"><span class="hs-identifier hs-var">tod</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">a -&gt; a -&gt; a
forall a. Fractional a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#%2F"><span class="hs-operator hs-var">/</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-number">60</span></span><span>
</span><span id="line-233"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">(b, a) -&gt; Maybe (b, a)
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">((b, a) -&gt; Maybe (b, a)) -&gt; (b, a) -&gt; Maybe (b, a)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; a -&gt; (b, a)
forall a b. (Real a, Integral b) =&gt; a -&gt; a -&gt; (b, a)
</span><a href="Data.Time.Calendar.Private.html#quotRemBy"><span class="hs-identifier hs-var">quotRemBy</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679075159"><span class="hs-identifier hs-var">mm</span></a></span><span>
</span><span id="line-234"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">((Int, Fixed E14) -&gt; Maybe TimeOfDay)
-&gt; (TimeOfDay -&gt; Maybe (Int, Fixed E14))
-&gt; Format (Int, Fixed E14)
-&gt; Format TimeOfDay
forall a b.
(a -&gt; Maybe b) -&gt; (b -&gt; Maybe a) -&gt; Format a -&gt; Format b
</span><a href="Data.Format.html#mapMFormat"><span class="hs-identifier hs-var">mapMFormat</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, Fixed E14) -&gt; Maybe TimeOfDay
forall {a} {a}. (Integral a, Real a) =&gt; (a, a) -&gt; Maybe TimeOfDay
</span><a href="#local-6989586621679075179"><span class="hs-identifier hs-var">toTOD</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe (Int, Fixed E14)
forall {b} {a}.
(Integral b, Real a, Fractional a) =&gt;
TimeOfDay -&gt; Maybe (b, a)
</span><a href="#local-6989586621679075166"><span class="hs-identifier hs-var">fromTOD</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, Fixed E14) -&gt; Format TimeOfDay)
-&gt; Format (Int, Fixed E14) -&gt; Format TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Int -&gt; Format (Fixed E14) -&gt; Format (Int, Fixed E14)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var">extColonFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075194"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int
</span><a href="Data.Time.Format.ISO8601.html#hourFormat%27"><span class="hs-identifier hs-var">hourFormat'</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Fixed E14) -&gt; Format (Int, Fixed E14))
-&gt; Format (Fixed E14) -&gt; Format (Int, Fixed E14)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format (Fixed E14)
</span><a href="Data.Time.Format.ISO8601.html#minuteDecimalFormat"><span class="hs-identifier hs-var">minuteDecimalFormat</span></a></span><span>
</span><span id="line-235"></span><span>
</span><span id="line-236"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.2.2.3(b), 4.2.2.4(c)</span><span>
</span><span id="line-237"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#hourFormat"><span class="hs-identifier hs-type">hourFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span>
</span><span id="line-238"></span><span id="hourFormat"><span class="annot"><span class="annottext">hourFormat :: Format TimeOfDay
</span><a href="Data.Time.Format.ISO8601.html#hourFormat"><span class="hs-identifier hs-var hs-var">hourFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-239"></span><span>    </span><span id="local-6989586621679075148"><span class="annot"><span class="annottext">toTOD :: a -&gt; Maybe TimeOfDay
</span><a href="#local-6989586621679075148"><span class="hs-identifier hs-var hs-var">toTOD</span></a></span></span><span> </span><span id="local-6989586621679075147"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679075147"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; (Integer, TimeOfDay)
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#timeToDaysAndTimeOfDay"><span class="hs-identifier hs-var">timeToDaysAndTimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">(NominalDiffTime -&gt; (Integer, TimeOfDay))
-&gt; NominalDiffTime -&gt; (Integer, TimeOfDay)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Rational -&gt; NominalDiffTime
</span><a href="Data.Time.Format.ISO8601.html#fromRationalRound"><span class="hs-identifier hs-var">fromRationalRound</span></a></span><span> </span><span class="annot"><span class="annottext">(Rational -&gt; NominalDiffTime) -&gt; Rational -&gt; NominalDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; Rational
forall a. Real a =&gt; a -&gt; Rational
</span><a href="../../base/src/GHC.Real.html#toRational"><span class="hs-identifier hs-var">toRational</span></a></span><span> </span><span class="annot"><span class="annottext">(a -&gt; Rational) -&gt; a -&gt; Rational
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679075147"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; a -&gt; a
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-number">3600</span></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-240"></span><span>        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span id="local-6989586621679075146"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075146"><span class="hs-identifier hs-var">tod</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe TimeOfDay
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075146"><span class="hs-identifier hs-var">tod</span></a></span><span>
</span><span id="line-241"></span><span>        </span><span class="annot"><span class="annottext">(Integer, TimeOfDay)
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe TimeOfDay
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-242"></span><span>    </span><span id="local-6989586621679075138"><span class="annot"><span class="annottext">fromTOD :: TimeOfDay -&gt; Maybe a
</span><a href="#local-6989586621679075138"><span class="hs-identifier hs-var hs-var">fromTOD</span></a></span></span><span> </span><span id="local-6989586621679075137"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075137"><span class="hs-identifier hs-var">tod</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -&gt; Maybe a
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">(a -&gt; Maybe a) -&gt; a -&gt; Maybe a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">NominalDiffTime -&gt; a
forall a b. (Real a, Fractional b) =&gt; a -&gt; b
</span><a href="../../base/src/GHC.Real.html#realToFrac"><span class="hs-identifier hs-var">realToFrac</span></a></span><span> </span><span class="annot"><span class="annottext">(NominalDiffTime -&gt; a) -&gt; NominalDiffTime -&gt; a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; TimeOfDay -&gt; NominalDiffTime
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#daysAndTimeOfDayToTime"><span class="hs-identifier hs-var">daysAndTimeOfDayToTime</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075137"><span class="hs-identifier hs-var">tod</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">a -&gt; a -&gt; a
forall a. Fractional a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#%2F"><span class="hs-operator hs-var">/</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-number">3600</span></span><span>
</span><span id="line-243"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">(Fixed E16 -&gt; Maybe TimeOfDay)
-&gt; (TimeOfDay -&gt; Maybe (Fixed E16))
-&gt; Format (Fixed E16)
-&gt; Format TimeOfDay
forall a b.
(a -&gt; Maybe b) -&gt; (b -&gt; Maybe a) -&gt; Format a -&gt; Format b
</span><a href="Data.Format.html#mapMFormat"><span class="hs-identifier hs-var">mapMFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Fixed E16 -&gt; Maybe TimeOfDay
forall {a}. Real a =&gt; a -&gt; Maybe TimeOfDay
</span><a href="#local-6989586621679075148"><span class="hs-identifier hs-var">toTOD</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay -&gt; Maybe (Fixed E16)
forall {a}. Fractional a =&gt; TimeOfDay -&gt; Maybe a
</span><a href="#local-6989586621679075138"><span class="hs-identifier hs-var">fromTOD</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Fixed E16) -&gt; Format TimeOfDay)
-&gt; Format (Fixed E16) -&gt; Format TimeOfDay
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format (Fixed E16)
</span><a href="Data.Time.Format.ISO8601.html#hourDecimalFormat"><span class="hs-identifier hs-var">hourDecimalFormat</span></a></span><span>
</span><span id="line-244"></span><span>
</span><span id="line-245"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.2.2.5</span><span>
</span><span id="line-246"></span><span id="local-6989586621679075603"><span class="annot"><a href="Data.Time.Format.ISO8601.html#withTimeDesignator"><span class="hs-identifier hs-type">withTimeDesignator</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075603"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075603"><span class="hs-identifier hs-type">t</span></a></span></span><span>
</span><span id="line-247"></span><span id="withTimeDesignator"><span class="annot"><span class="annottext">withTimeDesignator :: forall t. Format t -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#withTimeDesignator"><span class="hs-identifier hs-var hs-var">withTimeDesignator</span></a></span></span><span> </span><span id="local-6989586621679075135"><span class="annot"><span class="annottext">Format t
</span><a href="#local-6989586621679075135"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;T&quot;</span></span><span> </span><span class="annot"><span class="annottext">Format () -&gt; Format t -&gt; Format t
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Format t
</span><a href="#local-6989586621679075135"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-248"></span><span>
</span><span id="line-249"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.2.4</span><span>
</span><span id="line-250"></span><span id="local-6989586621679075134"><span class="annot"><a href="Data.Time.Format.ISO8601.html#withUTCDesignator"><span class="hs-identifier hs-type">withUTCDesignator</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075134"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075134"><span class="hs-identifier hs-type">t</span></a></span></span><span>
</span><span id="line-251"></span><span id="withUTCDesignator"><span class="annot"><span class="annottext">withUTCDesignator :: forall t. Format t -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#withUTCDesignator"><span class="hs-identifier hs-var hs-var">withUTCDesignator</span></a></span></span><span> </span><span id="local-6989586621679075132"><span class="annot"><span class="annottext">Format t
</span><a href="#local-6989586621679075132"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format t
</span><a href="#local-6989586621679075132"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">Format t -&gt; Format () -&gt; Format t
forall (f :: * -&gt; *) a. Productish f =&gt; f a -&gt; f () -&gt; f a
</span><a href="Data.Format.html#%3C%2A%2A"><span class="hs-operator hs-var">&lt;**</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Z&quot;</span></span><span>
</span><span id="line-252"></span><span>
</span><span id="line-253"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.2.5.1</span><span>
</span><span id="line-254"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeOffsetFormat"><span class="hs-identifier hs-type">timeOffsetFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span>
</span><span id="line-255"></span><span id="timeOffsetFormat"><span class="annot"><span class="annottext">timeOffsetFormat :: FormatExtension -&gt; Format TimeZone
</span><a href="Data.Time.Format.ISO8601.html#timeOffsetFormat"><span class="hs-identifier hs-var hs-var">timeOffsetFormat</span></a></span></span><span> </span><span id="local-6989586621679075131"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075131"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-256"></span><span>    </span><span id="local-6989586621679075126"><span class="annot"><span class="annottext">toTimeZone :: (Int, (Int, Int)) -&gt; TimeZone
</span><a href="#local-6989586621679075126"><span class="hs-identifier hs-var hs-var">toTimeZone</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679075125"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075125"><span class="hs-identifier hs-var">sign</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075124"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075124"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075123"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075123"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#minutesToTimeZone"><span class="hs-identifier hs-var">minutesToTimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">(Int -&gt; TimeZone) -&gt; Int -&gt; TimeZone
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075125"><span class="hs-identifier hs-var">sign</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075124"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">60</span></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Int
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075123"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-257"></span><span>    </span><span id="local-6989586621679075120"><span class="annot"><span class="annottext">fromTimeZone :: TimeZone -&gt; (Int, (Int, Int))
</span><a href="#local-6989586621679075120"><span class="hs-identifier hs-var hs-var">fromTimeZone</span></a></span></span><span> </span><span id="local-6989586621679075119"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679075119"><span class="hs-identifier hs-var">tz</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-258"></span><span>        </span><span id="local-6989586621679075118"><span class="annot"><span class="annottext">mm :: Int
</span><a href="#local-6989586621679075118"><span class="hs-identifier hs-var hs-var">mm</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; Int
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#timeZoneMinutes"><span class="hs-identifier hs-var hs-var">timeZoneMinutes</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679075119"><span class="hs-identifier hs-var">tz</span></a></span><span>
</span><span id="line-259"></span><span>        </span><span id="local-6989586621679075113"><span class="annot"><span class="annottext">hm :: (Int, Int)
</span><a href="#local-6989586621679075113"><span class="hs-identifier hs-var hs-var">hm</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; (Int, Int)
forall a. Integral a =&gt; a -&gt; a -&gt; (a, a)
</span><a href="../../base/src/GHC.Real.html#quotRem"><span class="hs-identifier hs-var">quotRem</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Int
forall a. Num a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#abs"><span class="hs-identifier hs-var">abs</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075118"><span class="hs-identifier hs-var">mm</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">60</span></span><span>
</span><span id="line-260"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Int
forall a. Num a =&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#signum"><span class="hs-identifier hs-var">signum</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075118"><span class="hs-identifier hs-var">mm</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">(Int, Int)
</span><a href="#local-6989586621679075113"><span class="hs-identifier hs-var">hm</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-261"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">((Int, (Int, Int)) -&gt; TimeZone)
-&gt; (TimeZone -&gt; (Int, (Int, Int)))
-&gt; Format (Int, (Int, Int))
-&gt; Format TimeZone
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, (Int, Int)) -&gt; TimeZone
</span><a href="#local-6989586621679075126"><span class="hs-identifier hs-var">toTimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone -&gt; (Int, (Int, Int))
</span><a href="#local-6989586621679075120"><span class="hs-identifier hs-var">fromTimeZone</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, (Int, Int)) -&gt; Format TimeZone)
-&gt; Format (Int, (Int, Int)) -&gt; Format TimeZone
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-262"></span><span>        </span><span class="annot"><span class="annottext">Format Int
forall t. (Eq t, Num t) =&gt; Format t
</span><a href="Data.Format.html#mandatorySignFormat"><span class="hs-identifier hs-var">mandatorySignFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Int -&gt; Format (Int, Int) -&gt; Format (Int, (Int, Int))
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Int -&gt; Format Int -&gt; Format (Int, Int)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var">extColonFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075131"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-263"></span><span>
</span><span id="line-264"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.2.5.2</span><span>
</span><span id="line-265"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeOfDayAndOffsetFormat"><span class="hs-identifier hs-type">timeOfDayAndOffsetFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-266"></span><span id="timeOfDayAndOffsetFormat"><span class="annot"><span class="annottext">timeOfDayAndOffsetFormat :: FormatExtension -&gt; Format (TimeOfDay, TimeZone)
</span><a href="Data.Time.Format.ISO8601.html#timeOfDayAndOffsetFormat"><span class="hs-identifier hs-var hs-var">timeOfDayAndOffsetFormat</span></a></span></span><span> </span><span id="local-6989586621679075107"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075107"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format TimeOfDay
</span><a href="Data.Time.Format.ISO8601.html#timeOfDayFormat"><span class="hs-identifier hs-var">timeOfDayFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075107"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay -&gt; Format TimeZone -&gt; Format (TimeOfDay, TimeZone)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format TimeZone
</span><a href="Data.Time.Format.ISO8601.html#timeOffsetFormat"><span class="hs-identifier hs-var">timeOffsetFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075107"><span class="hs-identifier hs-var">fe</span></a></span><span>
</span><span id="line-267"></span><span>
</span><span id="line-268"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.3.2</span><span>
</span><span id="line-269"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#localTimeFormat"><span class="hs-identifier hs-type">localTimeFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-type">LocalTime</span></a></span><span>
</span><span id="line-270"></span><span id="localTimeFormat"><span class="annot"><span class="annottext">localTimeFormat :: Format Day -&gt; Format TimeOfDay -&gt; Format LocalTime
</span><a href="Data.Time.Format.ISO8601.html#localTimeFormat"><span class="hs-identifier hs-var hs-var">localTimeFormat</span></a></span></span><span> </span><span id="local-6989586621679075106"><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075106"><span class="hs-identifier hs-var">fday</span></a></span></span><span> </span><span id="local-6989586621679075105"><span class="annot"><span class="annottext">Format TimeOfDay
</span><a href="#local-6989586621679075105"><span class="hs-identifier hs-var">ftod</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((Day, TimeOfDay) -&gt; LocalTime)
-&gt; (LocalTime -&gt; (Day, TimeOfDay))
-&gt; Format (Day, TimeOfDay)
-&gt; Format LocalTime
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075104"><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075104"><span class="hs-identifier hs-var">day</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075103"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075103"><span class="hs-identifier hs-var">tod</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Day -&gt; TimeOfDay -&gt; LocalTime
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-var">LocalTime</span></a></span><span> </span><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075104"><span class="hs-identifier hs-var">day</span></a></span><span> </span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075103"><span class="hs-identifier hs-var">tod</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-type">LocalTime</span></a></span><span> </span><span id="local-6989586621679075101"><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075101"><span class="hs-identifier hs-var">day</span></a></span></span><span> </span><span id="local-6989586621679075100"><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075100"><span class="hs-identifier hs-var">tod</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Day
</span><a href="#local-6989586621679075101"><span class="hs-identifier hs-var">day</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">TimeOfDay
</span><a href="#local-6989586621679075100"><span class="hs-identifier hs-var">tod</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Day, TimeOfDay) -&gt; Format LocalTime)
-&gt; Format (Day, TimeOfDay) -&gt; Format LocalTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075106"><span class="hs-identifier hs-var">fday</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day -&gt; Format TimeOfDay -&gt; Format (Day, TimeOfDay)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay -&gt; Format TimeOfDay
forall t. Format t -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#withTimeDesignator"><span class="hs-identifier hs-var">withTimeDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay
</span><a href="#local-6989586621679075105"><span class="hs-identifier hs-var">ftod</span></a></span><span>
</span><span id="line-271"></span><span>
</span><span id="line-272"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.3.2</span><span>
</span><span id="line-273"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#zonedTimeFormat"><span class="hs-identifier hs-type">zonedTimeFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-type">ZonedTime</span></a></span><span>
</span><span id="line-274"></span><span id="zonedTimeFormat"><span class="annot"><span class="annottext">zonedTimeFormat :: Format Day
-&gt; Format TimeOfDay -&gt; FormatExtension -&gt; Format ZonedTime
</span><a href="Data.Time.Format.ISO8601.html#zonedTimeFormat"><span class="hs-identifier hs-var hs-var">zonedTimeFormat</span></a></span></span><span> </span><span id="local-6989586621679075099"><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075099"><span class="hs-identifier hs-var">fday</span></a></span></span><span> </span><span id="local-6989586621679075098"><span class="annot"><span class="annottext">Format TimeOfDay
</span><a href="#local-6989586621679075098"><span class="hs-identifier hs-var">ftod</span></a></span></span><span> </span><span id="local-6989586621679075097"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075097"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((LocalTime, TimeZone) -&gt; ZonedTime)
-&gt; (ZonedTime -&gt; (LocalTime, TimeZone))
-&gt; Format (LocalTime, TimeZone)
-&gt; Format ZonedTime
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679075096"><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679075096"><span class="hs-identifier hs-var">lt</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075095"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679075095"><span class="hs-identifier hs-var">tz</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">LocalTime -&gt; TimeZone -&gt; ZonedTime
</span><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-var">ZonedTime</span></a></span><span> </span><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679075096"><span class="hs-identifier hs-var">lt</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679075095"><span class="hs-identifier hs-var">tz</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-type">ZonedTime</span></a></span><span> </span><span id="local-6989586621679075093"><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679075093"><span class="hs-identifier hs-var">lt</span></a></span></span><span> </span><span id="local-6989586621679075092"><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679075092"><span class="hs-identifier hs-var">tz</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">LocalTime
</span><a href="#local-6989586621679075093"><span class="hs-identifier hs-var">lt</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">TimeZone
</span><a href="#local-6989586621679075092"><span class="hs-identifier hs-var">tz</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (LocalTime, TimeZone) -&gt; Format ZonedTime)
-&gt; Format (LocalTime, TimeZone) -&gt; Format ZonedTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format LocalTime -&gt; FormatExtension -&gt; Format (LocalTime, TimeZone)
forall t. Format t -&gt; FormatExtension -&gt; Format (t, TimeZone)
</span><a href="Data.Time.Format.ISO8601.html#timeAndOffsetFormat"><span class="hs-identifier hs-var">timeAndOffsetFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Format Day -&gt; Format TimeOfDay -&gt; Format LocalTime
</span><a href="Data.Time.Format.ISO8601.html#localTimeFormat"><span class="hs-identifier hs-var">localTimeFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075099"><span class="hs-identifier hs-var">fday</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay
</span><a href="#local-6989586621679075098"><span class="hs-identifier hs-var">ftod</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075097"><span class="hs-identifier hs-var">fe</span></a></span><span>
</span><span id="line-275"></span><span>
</span><span id="line-276"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.3.2</span><span>
</span><span id="line-277"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#utcTimeFormat"><span class="hs-identifier hs-type">utcTimeFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UTCTime.html#UTCTime"><span class="hs-identifier hs-type">UTCTime</span></a></span><span>
</span><span id="line-278"></span><span id="utcTimeFormat"><span class="annot"><span class="annottext">utcTimeFormat :: Format Day -&gt; Format TimeOfDay -&gt; Format UTCTime
</span><a href="Data.Time.Format.ISO8601.html#utcTimeFormat"><span class="hs-identifier hs-var hs-var">utcTimeFormat</span></a></span></span><span> </span><span id="local-6989586621679075091"><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075091"><span class="hs-identifier hs-var">fday</span></a></span></span><span> </span><span id="local-6989586621679075090"><span class="annot"><span class="annottext">Format TimeOfDay
</span><a href="#local-6989586621679075090"><span class="hs-identifier hs-var">ftod</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(LocalTime -&gt; UTCTime)
-&gt; (UTCTime -&gt; LocalTime) -&gt; Format LocalTime -&gt; Format UTCTime
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeZone -&gt; LocalTime -&gt; UTCTime
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#localTimeToUTC"><span class="hs-identifier hs-var">localTimeToUTC</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#utc"><span class="hs-identifier hs-var">utc</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">TimeZone -&gt; UTCTime -&gt; LocalTime
</span><a href="Data.Time.LocalTime.Internal.LocalTime.html#utcToLocalTime"><span class="hs-identifier hs-var">utcToLocalTime</span></a></span><span> </span><span class="annot"><span class="annottext">TimeZone
</span><a href="Data.Time.LocalTime.Internal.TimeZone.html#utc"><span class="hs-identifier hs-var">utc</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format LocalTime -&gt; Format UTCTime)
-&gt; Format LocalTime -&gt; Format UTCTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format LocalTime -&gt; Format LocalTime
forall t. Format t -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#withUTCDesignator"><span class="hs-identifier hs-var">withUTCDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">(Format LocalTime -&gt; Format LocalTime)
-&gt; Format LocalTime -&gt; Format LocalTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day -&gt; Format TimeOfDay -&gt; Format LocalTime
</span><a href="Data.Time.Format.ISO8601.html#localTimeFormat"><span class="hs-identifier hs-var">localTimeFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075091"><span class="hs-identifier hs-var">fday</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay
</span><a href="#local-6989586621679075090"><span class="hs-identifier hs-var">ftod</span></a></span><span>
</span><span id="line-279"></span><span>
</span><span id="line-280"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.3.3</span><span>
</span><span id="line-281"></span><span id="local-6989586621679075590"><span class="annot"><a href="Data.Time.Format.ISO8601.html#dayAndTimeFormat"><span class="hs-identifier hs-type">dayAndTimeFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075590"><span class="hs-identifier hs-type">time</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075590"><span class="hs-identifier hs-type">time</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-282"></span><span id="dayAndTimeFormat"><span class="annot"><span class="annottext">dayAndTimeFormat :: forall time. Format Day -&gt; Format time -&gt; Format (Day, time)
</span><a href="Data.Time.Format.ISO8601.html#dayAndTimeFormat"><span class="hs-identifier hs-var hs-var">dayAndTimeFormat</span></a></span></span><span> </span><span id="local-6989586621679075085"><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075085"><span class="hs-identifier hs-var">fday</span></a></span></span><span> </span><span id="local-6989586621679075084"><span class="annot"><span class="annottext">Format time
</span><a href="#local-6989586621679075084"><span class="hs-identifier hs-var">ft</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format Day
</span><a href="#local-6989586621679075085"><span class="hs-identifier hs-var">fday</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day -&gt; Format time -&gt; Format (Day, time)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Format time -&gt; Format time
forall t. Format t -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#withTimeDesignator"><span class="hs-identifier hs-var">withTimeDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Format time
</span><a href="#local-6989586621679075084"><span class="hs-identifier hs-var">ft</span></a></span><span>
</span><span id="line-283"></span><span>
</span><span id="line-284"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.3.3</span><span>
</span><span id="line-285"></span><span id="local-6989586621679075592"><span class="annot"><a href="Data.Time.Format.ISO8601.html#timeAndOffsetFormat"><span class="hs-identifier hs-type">timeAndOffsetFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075592"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679075592"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-286"></span><span id="timeAndOffsetFormat"><span class="annot"><span class="annottext">timeAndOffsetFormat :: forall t. Format t -&gt; FormatExtension -&gt; Format (t, TimeZone)
</span><a href="Data.Time.Format.ISO8601.html#timeAndOffsetFormat"><span class="hs-identifier hs-var hs-var">timeAndOffsetFormat</span></a></span></span><span> </span><span id="local-6989586621679075082"><span class="annot"><span class="annottext">Format t
</span><a href="#local-6989586621679075082"><span class="hs-identifier hs-var">ft</span></a></span></span><span> </span><span id="local-6989586621679075081"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075081"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format t
</span><a href="#local-6989586621679075082"><span class="hs-identifier hs-var">ft</span></a></span><span> </span><span class="annot"><span class="annottext">Format t -&gt; Format TimeZone -&gt; Format (t, TimeZone)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format TimeZone
</span><a href="Data.Time.Format.ISO8601.html#timeOffsetFormat"><span class="hs-identifier hs-var">timeOffsetFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075081"><span class="hs-identifier hs-var">fe</span></a></span><span>
</span><span id="line-287"></span><span>
</span><span id="line-288"></span><span id="local-6989586621679075587"><span class="annot"><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-type">intDesignator</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Eq</span></span><span> </span><span class="annot"><a href="#local-6989586621679075587"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075587"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-type">Read</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075587"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Num.html#Num"><span class="hs-identifier hs-type">Num</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075587"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075587"><span class="hs-identifier hs-type">t</span></a></span></span><span>
</span><span id="line-289"></span><span id="intDesignator"><span class="annot"><span class="annottext">intDesignator :: forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-var hs-var">intDesignator</span></a></span></span><span> </span><span id="local-6989586621679075069"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679075069"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">t -&gt; Format t -&gt; Format t
forall a. Eq a =&gt; a -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#optionalFormat"><span class="hs-identifier hs-var">optionalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">(Format t -&gt; Format t) -&gt; Format t -&gt; Format t
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format t
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">Format t -&gt; Format () -&gt; Format t
forall (f :: * -&gt; *) a. Productish f =&gt; f a -&gt; f () -&gt; f a
</span><a href="Data.Format.html#%3C%2A%2A"><span class="hs-operator hs-var">&lt;**</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679075069"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-290"></span><span>
</span><span id="line-291"></span><span id="local-6989586621679075067"><span class="annot"><a href="Data.Time.Format.ISO8601.html#decDesignator"><span class="hs-identifier hs-type">decDesignator</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Eq</span></span><span> </span><span class="annot"><a href="#local-6989586621679075067"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-type">Show</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075067"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-type">Read</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075067"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Num.html#Num"><span class="hs-identifier hs-type">Num</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075067"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075067"><span class="hs-identifier hs-type">t</span></a></span></span><span>
</span><span id="line-292"></span><span id="decDesignator"><span class="annot"><span class="annottext">decDesignator :: forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#decDesignator"><span class="hs-identifier hs-var hs-var">decDesignator</span></a></span></span><span> </span><span id="local-6989586621679075055"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679075055"><span class="hs-identifier hs-var">c</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">t -&gt; Format t -&gt; Format t
forall a. Eq a =&gt; a -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#optionalFormat"><span class="hs-identifier hs-var">optionalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">t
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">(Format t -&gt; Format t) -&gt; Format t -&gt; Format t
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format t
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#decimalFormat"><span class="hs-identifier hs-var">decimalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">Format t -&gt; Format () -&gt; Format t
forall (f :: * -&gt; *) a. Productish f =&gt; f a -&gt; f () -&gt; f a
</span><a href="Data.Format.html#%3C%2A%2A"><span class="hs-operator hs-var">&lt;**</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621679075055"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-293"></span><span>
</span><span id="line-294"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#daysDesigs"><span class="hs-identifier hs-type">daysDesigs</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span><span>
</span><span id="line-295"></span><span id="daysDesigs"><span class="annot"><span class="annottext">daysDesigs :: Format CalendarDiffDays
</span><a href="Data.Time.Format.ISO8601.html#daysDesigs"><span class="hs-identifier hs-var hs-var">daysDesigs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-296"></span><span>    </span><span id="local-6989586621679075047"><span class="annot"><span class="annottext">toCD :: (Integer, (Integer, (Integer, Integer))) -&gt; CalendarDiffDays
</span><a href="#local-6989586621679075047"><span class="hs-identifier hs-var hs-var">toCD</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679075046"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075046"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075045"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075045"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075044"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075044"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075043"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075043"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; CalendarDiffDays
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-var">CalendarDiffDays</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075046"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075045"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075044"><span class="hs-identifier hs-var">w</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">7</span></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075043"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-297"></span><span>    </span><span id="local-6989586621679075035"><span class="annot"><span class="annottext">fromCD :: CalendarDiffDays -&gt; (Integer, (Integer, (a, Integer)))
</span><a href="#local-6989586621679075035"><span class="hs-identifier hs-var hs-var">fromCD</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span><span> </span><span id="local-6989586621679075034"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075034"><span class="hs-identifier hs-var">mm</span></a></span></span><span> </span><span id="local-6989586621679075033"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075033"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#quot"><span class="hs-identifier hs-var">quot</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075034"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#rem"><span class="hs-identifier hs-var">rem</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075034"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">a
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075033"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-298"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">((Integer, (Integer, (Integer, Integer))) -&gt; CalendarDiffDays)
-&gt; (CalendarDiffDays -&gt; (Integer, (Integer, (Integer, Integer))))
-&gt; Format (Integer, (Integer, (Integer, Integer)))
-&gt; Format CalendarDiffDays
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer, (Integer, (Integer, Integer))) -&gt; CalendarDiffDays
</span><a href="#local-6989586621679075047"><span class="hs-identifier hs-var">toCD</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; (Integer, (Integer, (Integer, Integer)))
forall {a}.
Num a =&gt;
CalendarDiffDays -&gt; (Integer, (Integer, (a, Integer)))
</span><a href="#local-6989586621679075035"><span class="hs-identifier hs-var">fromCD</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, (Integer, (Integer, Integer)))
 -&gt; Format CalendarDiffDays)
-&gt; Format (Integer, (Integer, (Integer, Integer)))
-&gt; Format CalendarDiffDays
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-299"></span><span>        </span><span class="annot"><span class="annottext">Char -&gt; Format Integer
forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-var">intDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'Y'</span></span><span> </span><span class="annot"><span class="annottext">Format Integer
-&gt; Format (Integer, (Integer, Integer))
-&gt; Format (Integer, (Integer, (Integer, Integer)))
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Format Integer
forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-var">intDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="annot"><span class="annottext">Format Integer
-&gt; Format (Integer, Integer)
-&gt; Format (Integer, (Integer, Integer))
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Format Integer
forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-var">intDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'W'</span></span><span> </span><span class="annot"><span class="annottext">Format Integer -&gt; Format Integer -&gt; Format (Integer, Integer)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Format Integer
forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-var">intDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'D'</span></span><span>
</span><span id="line-300"></span><span>
</span><span id="line-301"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.4.3.2</span><span>
</span><span id="line-302"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#durationDaysFormat"><span class="hs-identifier hs-type">durationDaysFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span><span>
</span><span id="line-303"></span><span id="durationDaysFormat"><span class="annot"><span class="annottext">durationDaysFormat :: Format CalendarDiffDays
</span><a href="Data.Time.Format.ISO8601.html#durationDaysFormat"><span class="hs-identifier hs-var hs-var">durationDaysFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format () -&gt; Format CalendarDiffDays -&gt; Format CalendarDiffDays
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">(**&gt;)</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;P&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format CalendarDiffDays -&gt; Format CalendarDiffDays)
-&gt; Format CalendarDiffDays -&gt; Format CalendarDiffDays
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(CalendarDiffDays, String)
-&gt; Format CalendarDiffDays -&gt; Format CalendarDiffDays
forall a. Eq a =&gt; (a, String) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#specialCaseShowFormat"><span class="hs-identifier hs-var">specialCaseShowFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">CalendarDiffDays
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;0D&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format CalendarDiffDays -&gt; Format CalendarDiffDays)
-&gt; Format CalendarDiffDays -&gt; Format CalendarDiffDays
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format CalendarDiffDays
</span><a href="Data.Time.Format.ISO8601.html#daysDesigs"><span class="hs-identifier hs-var">daysDesigs</span></a></span><span>
</span><span id="line-304"></span><span>
</span><span id="line-305"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.4.3.2</span><span>
</span><span id="line-306"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#durationTimeFormat"><span class="hs-identifier hs-type">durationTimeFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-type">CalendarDiffTime</span></a></span><span>
</span><span id="line-307"></span><span id="durationTimeFormat"><span class="annot"><span class="annottext">durationTimeFormat :: Format CalendarDiffTime
</span><a href="Data.Time.Format.ISO8601.html#durationTimeFormat"><span class="hs-identifier hs-var hs-var">durationTimeFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-308"></span><span>    </span><span id="local-6989586621679075028"><span class="annot"><span class="annottext">toCT :: (CalendarDiffDays, (Int, (Int, Pico))) -&gt; CalendarDiffTime
</span><a href="#local-6989586621679075028"><span class="hs-identifier hs-var hs-var">toCT</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679075027"><span class="annot"><span class="annottext">CalendarDiffDays
</span><a href="#local-6989586621679075027"><span class="hs-identifier hs-var">cd</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075026"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075026"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075025"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075025"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075024"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075024"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; CalendarDiffTime -&gt; CalendarDiffTime
forall a. Monoid a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-identifier hs-var">mappend</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; CalendarDiffTime
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#calendarTimeDays"><span class="hs-identifier hs-var">calendarTimeDays</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays
</span><a href="#local-6989586621679075027"><span class="hs-identifier hs-var">cd</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">NominalDiffTime -&gt; CalendarDiffTime
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#calendarTimeTime"><span class="hs-identifier hs-var">calendarTimeTime</span></a></span><span> </span><span class="annot"><span class="annottext">(NominalDiffTime -&gt; CalendarDiffTime)
-&gt; NominalDiffTime -&gt; CalendarDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; TimeOfDay -&gt; NominalDiffTime
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#daysAndTimeOfDayToTime"><span class="hs-identifier hs-var">daysAndTimeOfDayToTime</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; NominalDiffTime) -&gt; TimeOfDay -&gt; NominalDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075026"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075025"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075024"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-309"></span><span>    </span><span id="local-6989586621679075021"><span class="annot"><span class="annottext">fromCT :: CalendarDiffTime -&gt; (CalendarDiffDays, (Int, (Int, Pico)))
</span><a href="#local-6989586621679075021"><span class="hs-identifier hs-var hs-var">fromCT</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-type">CalendarDiffTime</span></a></span><span> </span><span id="local-6989586621679075019"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075019"><span class="hs-identifier hs-var">mm</span></a></span></span><span> </span><span id="local-6989586621679075018"><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679075018"><span class="hs-identifier hs-var">t</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-310"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679075017"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075017"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span id="local-6989586621679075016"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075016"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span id="local-6989586621679075015"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075015"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679075014"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075014"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; (Integer, TimeOfDay)
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#timeToDaysAndTimeOfDay"><span class="hs-identifier hs-var">timeToDaysAndTimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679075018"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-311"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; CalendarDiffDays
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-var">CalendarDiffDays</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075019"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075017"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075016"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679075015"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679075014"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-312"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">Format () -&gt; Format CalendarDiffTime -&gt; Format CalendarDiffTime
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">(**&gt;)</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;P&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format CalendarDiffTime -&gt; Format CalendarDiffTime)
-&gt; Format CalendarDiffTime -&gt; Format CalendarDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(CalendarDiffTime, String)
-&gt; Format CalendarDiffTime -&gt; Format CalendarDiffTime
forall a. Eq a =&gt; (a, String) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#specialCaseShowFormat"><span class="hs-identifier hs-var">specialCaseShowFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">CalendarDiffTime
forall a. Monoid a =&gt; a
</span><a href="../../base/src/GHC.Base.html#mempty"><span class="hs-identifier hs-var">mempty</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;0D&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format CalendarDiffTime -&gt; Format CalendarDiffTime)
-&gt; Format CalendarDiffTime -&gt; Format CalendarDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays, (Int, (Int, Pico))) -&gt; CalendarDiffTime)
-&gt; (CalendarDiffTime -&gt; (CalendarDiffDays, (Int, (Int, Pico))))
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
-&gt; Format CalendarDiffTime
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="annot"><span class="annottext">(CalendarDiffDays, (Int, (Int, Pico))) -&gt; CalendarDiffTime
</span><a href="#local-6989586621679075028"><span class="hs-identifier hs-var">toCT</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; (CalendarDiffDays, (Int, (Int, Pico)))
</span><a href="#local-6989586621679075021"><span class="hs-identifier hs-var">fromCT</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (CalendarDiffDays, (Int, (Int, Pico)))
 -&gt; Format CalendarDiffTime)
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
-&gt; Format CalendarDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-313"></span><span>        </span><span class="annot"><span class="annottext">Format CalendarDiffDays
-&gt; Format (Int, (Int, Pico))
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">(&lt;**&gt;)</span></a></span><span> </span><span class="annot"><span class="annottext">Format CalendarDiffDays
</span><a href="Data.Time.Format.ISO8601.html#daysDesigs"><span class="hs-identifier hs-var">daysDesigs</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, (Int, Pico))
 -&gt; Format (CalendarDiffDays, (Int, (Int, Pico))))
-&gt; Format (Int, (Int, Pico))
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">(Int, (Int, Pico))
-&gt; Format (Int, (Int, Pico)) -&gt; Format (Int, (Int, Pico))
forall a. Eq a =&gt; a -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#optionalFormat"><span class="hs-identifier hs-var">optionalFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Pico
</span><span class="hs-number">0</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Int, (Int, Pico)) -&gt; Format (Int, (Int, Pico)))
-&gt; Format (Int, (Int, Pico)) -&gt; Format (Int, (Int, Pico))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;T&quot;</span></span><span> </span><span class="annot"><span class="annottext">Format () -&gt; Format (Int, (Int, Pico)) -&gt; Format (Int, (Int, Pico))
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Format Int
forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-var">intDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'H'</span></span><span> </span><span class="annot"><span class="annottext">Format Int -&gt; Format (Int, Pico) -&gt; Format (Int, (Int, Pico))
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Format Int
forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#intDesignator"><span class="hs-identifier hs-var">intDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'M'</span></span><span> </span><span class="annot"><span class="annottext">Format Int -&gt; Format Pico -&gt; Format (Int, Pico)
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">&lt;**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Format Pico
forall t. (Eq t, Show t, Read t, Num t) =&gt; Char -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#decDesignator"><span class="hs-identifier hs-var">decDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">'S'</span></span><span>
</span><span id="line-314"></span><span>
</span><span id="line-315"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.4.3.3</span><span>
</span><span id="line-316"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#alternativeDurationDaysFormat"><span class="hs-identifier hs-type">alternativeDurationDaysFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span><span>
</span><span id="line-317"></span><span id="alternativeDurationDaysFormat"><span class="annot"><span class="annottext">alternativeDurationDaysFormat :: FormatExtension -&gt; Format CalendarDiffDays
</span><a href="Data.Time.Format.ISO8601.html#alternativeDurationDaysFormat"><span class="hs-identifier hs-var hs-var">alternativeDurationDaysFormat</span></a></span></span><span> </span><span id="local-6989586621679075013"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075013"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-318"></span><span>    </span><span id="local-6989586621679075009"><span class="annot"><span class="annottext">toCD :: (Integer, (Integer, Integer)) -&gt; CalendarDiffDays
</span><a href="#local-6989586621679075009"><span class="hs-identifier hs-var hs-var">toCD</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679075008"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075008"><span class="hs-identifier hs-var">y</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679075007"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075007"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679075006"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075006"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; CalendarDiffDays
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-var">CalendarDiffDays</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075008"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2A"><span class="hs-operator hs-var">*</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Num a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Num.html#%2B"><span class="hs-operator hs-var">+</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075007"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075006"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-319"></span><span>    </span><span id="local-6989586621679075001"><span class="annot"><span class="annottext">fromCD :: CalendarDiffDays -&gt; (Integer, (Integer, Integer))
</span><a href="#local-6989586621679075001"><span class="hs-identifier hs-var hs-var">fromCD</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span><span> </span><span id="local-6989586621679075000"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075000"><span class="hs-identifier hs-var">mm</span></a></span></span><span> </span><span id="local-6989586621679074999"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074999"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#quot"><span class="hs-identifier hs-var">quot</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075000"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Integer
forall a. Integral a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Real.html#rem"><span class="hs-identifier hs-var">rem</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679075000"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074999"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-320"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">((Integer, (Integer, Integer)) -&gt; CalendarDiffDays)
-&gt; (CalendarDiffDays -&gt; (Integer, (Integer, Integer)))
-&gt; Format (Integer, (Integer, Integer))
-&gt; Format CalendarDiffDays
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="annot"><span class="annottext">(Integer, (Integer, Integer)) -&gt; CalendarDiffDays
</span><a href="#local-6989586621679075009"><span class="hs-identifier hs-var">toCD</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; (Integer, (Integer, Integer))
</span><a href="#local-6989586621679075001"><span class="hs-identifier hs-var">fromCD</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Integer, (Integer, Integer)) -&gt; Format CalendarDiffDays)
-&gt; Format (Integer, (Integer, Integer)) -&gt; Format CalendarDiffDays
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format ()
-&gt; Format (Integer, (Integer, Integer))
-&gt; Format (Integer, (Integer, Integer))
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">(**&gt;)</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;P&quot;</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Integer, (Integer, Integer))
 -&gt; Format (Integer, (Integer, Integer)))
-&gt; Format (Integer, (Integer, Integer))
-&gt; Format (Integer, (Integer, Integer))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-321"></span><span>        </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer
-&gt; Format (Integer, Integer)
-&gt; Format (Integer, (Integer, Integer))
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075013"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Integer, Integer) -&gt; Format Integer -&gt; Format Integer
forall a. Ord a =&gt; (a, a) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#clipFormat"><span class="hs-identifier hs-var">clipFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">9999</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Integer -&gt; Format Integer)
-&gt; Format Integer -&gt; Format Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Integer
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe Int -&gt; Format Integer) -&gt; Maybe Int -&gt; Format Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">4</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Integer, Integer) -&gt; Format (Integer, (Integer, Integer)))
-&gt; Format (Integer, Integer)
-&gt; Format (Integer, (Integer, Integer))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-322"></span><span>        </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Integer -&gt; Format Integer -&gt; Format (Integer, Integer)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extDashFormat"><span class="hs-identifier hs-var">extDashFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679075013"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Integer, Integer) -&gt; Format Integer -&gt; Format Integer
forall a. Ord a =&gt; (a, a) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#clipFormat"><span class="hs-identifier hs-var">clipFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">12</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Integer -&gt; Format Integer)
-&gt; Format Integer -&gt; Format Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Integer
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe Int -&gt; Format Integer) -&gt; Maybe Int -&gt; Format Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Integer -&gt; Format (Integer, Integer))
-&gt; Format Integer -&gt; Format (Integer, Integer)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-323"></span><span>        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Integer, Integer) -&gt; Format Integer -&gt; Format Integer
forall a. Ord a =&gt; (a, a) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#clipFormat"><span class="hs-identifier hs-var">clipFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">30</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Integer -&gt; Format Integer)
-&gt; Format Integer -&gt; Format Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Integer
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe Int -&gt; Format Integer) -&gt; Maybe Int -&gt; Format Integer
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span>
</span><span id="line-324"></span><span>
</span><span id="line-325"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.4.3.3</span><span>
</span><span id="line-326"></span><span class="annot"><a href="Data.Time.Format.ISO8601.html#alternativeDurationTimeFormat"><span class="hs-identifier hs-type">alternativeDurationTimeFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#FormatExtension"><span class="hs-identifier hs-type">FormatExtension</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-type">CalendarDiffTime</span></a></span><span>
</span><span id="line-327"></span><span id="alternativeDurationTimeFormat"><span class="annot"><span class="annottext">alternativeDurationTimeFormat :: FormatExtension -&gt; Format CalendarDiffTime
</span><a href="Data.Time.Format.ISO8601.html#alternativeDurationTimeFormat"><span class="hs-identifier hs-var hs-var">alternativeDurationTimeFormat</span></a></span></span><span> </span><span id="local-6989586621679074997"><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679074997"><span class="hs-identifier hs-var">fe</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-328"></span><span>    </span><span id="local-6989586621679074995"><span class="annot"><span class="annottext">toCT :: (CalendarDiffDays, (Int, (Int, Pico))) -&gt; CalendarDiffTime
</span><a href="#local-6989586621679074995"><span class="hs-identifier hs-var hs-var">toCT</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679074994"><span class="annot"><span class="annottext">CalendarDiffDays
</span><a href="#local-6989586621679074994"><span class="hs-identifier hs-var">cd</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679074993"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074993"><span class="hs-identifier hs-var">h</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679074992"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074992"><span class="hs-identifier hs-var">m</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679074991"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679074991"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; CalendarDiffTime -&gt; CalendarDiffTime
forall a. Monoid a =&gt; a -&gt; a -&gt; a
</span><a href="../../base/src/GHC.Base.html#mappend"><span class="hs-identifier hs-var">mappend</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">CalendarDiffDays -&gt; CalendarDiffTime
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#calendarTimeDays"><span class="hs-identifier hs-var">calendarTimeDays</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffDays
</span><a href="#local-6989586621679074994"><span class="hs-identifier hs-var">cd</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">NominalDiffTime -&gt; CalendarDiffTime
</span><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#calendarTimeTime"><span class="hs-identifier hs-var">calendarTimeTime</span></a></span><span> </span><span class="annot"><span class="annottext">(NominalDiffTime -&gt; CalendarDiffTime)
-&gt; NominalDiffTime -&gt; CalendarDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; TimeOfDay -&gt; NominalDiffTime
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#daysAndTimeOfDayToTime"><span class="hs-identifier hs-var">daysAndTimeOfDayToTime</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span> </span><span class="annot"><span class="annottext">(TimeOfDay -&gt; NominalDiffTime) -&gt; TimeOfDay -&gt; NominalDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Int -&gt; Int -&gt; Pico -&gt; TimeOfDay
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-var">TimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074993"><span class="hs-identifier hs-var">h</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074992"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679074991"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-329"></span><span>    </span><span id="local-6989586621679074990"><span class="annot"><span class="annottext">fromCT :: CalendarDiffTime -&gt; (CalendarDiffDays, (Int, (Int, Pico)))
</span><a href="#local-6989586621679074990"><span class="hs-identifier hs-var hs-var">fromCT</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-type">CalendarDiffTime</span></a></span><span> </span><span id="local-6989586621679074989"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074989"><span class="hs-identifier hs-var">mm</span></a></span></span><span> </span><span id="local-6989586621679074988"><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679074988"><span class="hs-identifier hs-var">t</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">let</span><span>
</span><span id="line-330"></span><span>        </span><span class="hs-special">(</span><span id="local-6989586621679074987"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074987"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span id="local-6989586621679074986"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074986"><span class="hs-identifier hs-var">h</span></a></span></span><span> </span><span id="local-6989586621679074985"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074985"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679074984"><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679074984"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">NominalDiffTime -&gt; (Integer, TimeOfDay)
</span><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#timeToDaysAndTimeOfDay"><span class="hs-identifier hs-var">timeToDaysAndTimeOfDay</span></a></span><span> </span><span class="annot"><span class="annottext">NominalDiffTime
</span><a href="#local-6989586621679074988"><span class="hs-identifier hs-var">t</span></a></span><span>
</span><span id="line-331"></span><span>        </span><span class="hs-keyword">in</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; CalendarDiffDays
</span><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-var">CalendarDiffDays</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074989"><span class="hs-identifier hs-var">mm</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621679074987"><span class="hs-identifier hs-var">d</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074986"><span class="hs-identifier hs-var">h</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074985"><span class="hs-identifier hs-var">m</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Pico
</span><a href="#local-6989586621679074984"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-332"></span><span>    </span><span class="hs-keyword">in</span><span> </span><span class="annot"><span class="annottext">((CalendarDiffDays, (Int, (Int, Pico))) -&gt; CalendarDiffTime)
-&gt; (CalendarDiffTime -&gt; (CalendarDiffDays, (Int, (Int, Pico))))
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
-&gt; Format CalendarDiffTime
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="annot"><span class="annottext">(CalendarDiffDays, (Int, (Int, Pico))) -&gt; CalendarDiffTime
</span><a href="#local-6989586621679074995"><span class="hs-identifier hs-var">toCT</span></a></span><span> </span><span class="annot"><span class="annottext">CalendarDiffTime -&gt; (CalendarDiffDays, (Int, (Int, Pico)))
</span><a href="#local-6989586621679074990"><span class="hs-identifier hs-var">fromCT</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (CalendarDiffDays, (Int, (Int, Pico)))
 -&gt; Format CalendarDiffTime)
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
-&gt; Format CalendarDiffTime
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-333"></span><span>        </span><span class="annot"><span class="annottext">Format CalendarDiffDays
-&gt; Format (Int, (Int, Pico))
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
forall (f :: * -&gt; *) a b. Productish f =&gt; f a -&gt; f b -&gt; f (a, b)
</span><a href="Data.Format.html#%3C%2A%2A%3E"><span class="hs-operator hs-var">(&lt;**&gt;)</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FormatExtension -&gt; Format CalendarDiffDays
</span><a href="Data.Time.Format.ISO8601.html#alternativeDurationDaysFormat"><span class="hs-identifier hs-var">alternativeDurationDaysFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679074997"><span class="hs-identifier hs-var">fe</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Int, (Int, Pico))
 -&gt; Format (CalendarDiffDays, (Int, (Int, Pico))))
-&gt; Format (Int, (Int, Pico))
-&gt; Format (CalendarDiffDays, (Int, (Int, Pico)))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-334"></span><span>        </span><span class="annot"><span class="annottext">Format (Int, (Int, Pico)) -&gt; Format (Int, (Int, Pico))
forall t. Format t -&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#withTimeDesignator"><span class="hs-identifier hs-var">withTimeDesignator</span></a></span><span> </span><span class="annot"><span class="annottext">(Format (Int, (Int, Pico)) -&gt; Format (Int, (Int, Pico)))
-&gt; Format (Int, (Int, Pico)) -&gt; Format (Int, (Int, Pico))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-335"></span><span>        </span><span class="annot"><span class="annottext">FormatExtension
-&gt; Format Int -&gt; Format (Int, Pico) -&gt; Format (Int, (Int, Pico))
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var">extColonFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679074997"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Int, Int) -&gt; Format Int -&gt; Format Int
forall a. Ord a =&gt; (a, a) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#clipFormat"><span class="hs-identifier hs-var">clipFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">24</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Int -&gt; Format Int) -&gt; Format Int -&gt; Format Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Int, Pico) -&gt; Format (Int, (Int, Pico)))
-&gt; Format (Int, Pico) -&gt; Format (Int, (Int, Pico))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-336"></span><span>        </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Int -&gt; Format Pico -&gt; Format (Int, Pico)
forall a b.
FormatExtension -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#extColonFormat"><span class="hs-identifier hs-var">extColonFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="#local-6989586621679074997"><span class="hs-identifier hs-var">fe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Int, Int) -&gt; Format Int -&gt; Format Int
forall a. Ord a =&gt; (a, a) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#clipFormat"><span class="hs-identifier hs-var">clipFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">60</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Int -&gt; Format Int) -&gt; Format Int -&gt; Format Int
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Pico -&gt; Format (Int, Pico))
-&gt; Format Pico -&gt; Format (Int, Pico)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-337"></span><span>        </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Pico, Pico) -&gt; Format Pico -&gt; Format Pico
forall a. Ord a =&gt; (a, a) -&gt; Format a -&gt; Format a
</span><a href="Data.Format.html#clipFormat"><span class="hs-identifier hs-var">clipFormat</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Pico
</span><span class="hs-number">0</span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Pico
</span><span class="hs-number">60</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format Pico -&gt; Format Pico) -&gt; Format Pico -&gt; Format Pico
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Pico
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#decimalFormat"><span class="hs-identifier hs-var">decimalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NegSign"><span class="hs-identifier hs-var">NegSign</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">2</span></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-338"></span><span>
</span><span id="line-339"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.4.4.1</span><span>
</span><span id="line-340"></span><span id="local-6989586621679074982"><span id="local-6989586621679074983"><span class="annot"><a href="Data.Time.Format.ISO8601.html#intervalFormat"><span class="hs-identifier hs-type">intervalFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679074983"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679074982"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679074983"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679074982"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-341"></span><span id="intervalFormat"><span class="annot"><span class="annottext">intervalFormat :: forall a b. Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#intervalFormat"><span class="hs-identifier hs-var hs-var">intervalFormat</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
forall a b. String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#sepFormat"><span class="hs-identifier hs-var">sepFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;/&quot;</span></span><span>
</span><span id="line-342"></span><span>
</span><span id="line-343"></span><span class="hs-comment">-- | ISO 8601:2004(E) sec. 4.5</span><span>
</span><span id="line-344"></span><span id="local-6989586621679075576"><span id="local-6989586621679075577"><span class="annot"><a href="Data.Time.Format.ISO8601.html#recurringIntervalFormat"><span class="hs-identifier hs-type">recurringIntervalFormat</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075577"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075576"><span class="hs-identifier hs-type">b</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075577"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">,</span><span class="annot"><a href="#local-6989586621679075576"><span class="hs-identifier hs-type">b</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-345"></span><span id="recurringIntervalFormat"><span class="annot"><span class="annottext">recurringIntervalFormat :: forall a b. Format a -&gt; Format b -&gt; Format (Int, a, b)
</span><a href="Data.Time.Format.ISO8601.html#recurringIntervalFormat"><span class="hs-identifier hs-var hs-var">recurringIntervalFormat</span></a></span></span><span> </span><span id="local-6989586621679074976"><span class="annot"><span class="annottext">Format a
</span><a href="#local-6989586621679074976"><span class="hs-identifier hs-var">fa</span></a></span></span><span> </span><span id="local-6989586621679074975"><span class="annot"><span class="annottext">Format b
</span><a href="#local-6989586621679074975"><span class="hs-identifier hs-var">fb</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">((Int, (a, b)) -&gt; (Int, a, b))
-&gt; ((Int, a, b) -&gt; (Int, (a, b)))
-&gt; Format (Int, (a, b))
-&gt; Format (Int, a, b)
forall (f :: * -&gt; *) a b.
IsoVariant f =&gt;
(a -&gt; b) -&gt; (b -&gt; a) -&gt; f a -&gt; f b
</span><a href="Data.Format.html#isoMap"><span class="hs-identifier hs-var">isoMap</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679074974"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074974"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">,</span><span class="hs-special">(</span><span id="local-6989586621679074973"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679074973"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679074972"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679074972"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074974"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679074973"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679074972"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span id="local-6989586621679074971"><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074971"><span class="hs-identifier hs-var">r</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679074970"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679074970"><span class="hs-identifier hs-var">a</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679074969"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679074969"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int
</span><a href="#local-6989586621679074971"><span class="hs-identifier hs-var">r</span></a></span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679074970"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679074969"><span class="hs-identifier hs-var">b</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (Int, (a, b)) -&gt; Format (Int, a, b))
-&gt; Format (Int, (a, b)) -&gt; Format (Int, a, b)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Format Int -&gt; Format (a, b) -&gt; Format (Int, (a, b))
forall a b. String -&gt; Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#sepFormat"><span class="hs-identifier hs-var">sepFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;/&quot;</span></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; Format ()
</span><a href="Data.Format.html#literalFormat"><span class="hs-identifier hs-var">literalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;R&quot;</span></span><span> </span><span class="annot"><span class="annottext">Format () -&gt; Format Int -&gt; Format Int
forall (f :: * -&gt; *) a. Productish f =&gt; f () -&gt; f a -&gt; f a
</span><a href="Data.Format.html#%2A%2A%3E"><span class="hs-operator hs-var">**&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption -&gt; Maybe Int -&gt; Format Int
forall t.
(Show t, Read t, Num t) =&gt;
SignOption -&gt; Maybe Int -&gt; Format t
</span><a href="Data.Format.html#integerFormat"><span class="hs-identifier hs-var">integerFormat</span></a></span><span> </span><span class="annot"><span class="annottext">SignOption
</span><a href="Data.Format.html#NoSign"><span class="hs-identifier hs-var">NoSign</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Int
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(Format (a, b) -&gt; Format (Int, (a, b)))
-&gt; Format (a, b) -&gt; Format (Int, (a, b))
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">Format a -&gt; Format b -&gt; Format (a, b)
forall a b. Format a -&gt; Format b -&gt; Format (a, b)
</span><a href="Data.Time.Format.ISO8601.html#intervalFormat"><span class="hs-identifier hs-var">intervalFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format a
</span><a href="#local-6989586621679074976"><span class="hs-identifier hs-var">fa</span></a></span><span> </span><span class="annot"><span class="annottext">Format b
</span><a href="#local-6989586621679074975"><span class="hs-identifier hs-var">fb</span></a></span><span>
</span><span id="line-346"></span><span>
</span><span id="line-347"></span><span class="hs-keyword">class</span><span> </span><span id="ISO8601"><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-var">ISO8601</span></a></span></span><span> </span><span id="local-6989586621679075569"><span class="annot"><a href="#local-6989586621679075569"><span class="hs-identifier hs-type">t</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-348"></span><span>    </span><span class="hs-comment">-- | The most commonly used ISO 8601 format for this type.</span><span>
</span><span id="line-349"></span><span>    </span><span id="iso8601Format"><span class="annot"><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-type">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Format.html#Format"><span class="hs-identifier hs-type">Format</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075569"><span class="hs-identifier hs-type">t</span></a></span><span>
</span><span id="line-350"></span><span>
</span><span id="line-351"></span><span class="hs-comment">-- | Show in the most commonly used ISO 8601 format.</span><span>
</span><span id="line-352"></span><span id="local-6989586621679075573"><span class="annot"><a href="Data.Time.Format.ISO8601.html#iso8601Show"><span class="hs-identifier hs-type">iso8601Show</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075573"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679075573"><span class="hs-identifier hs-type">t</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span></span><span>
</span><span id="line-353"></span><span id="iso8601Show"><span class="annot"><span class="annottext">iso8601Show :: forall t. ISO8601 t =&gt; t -&gt; String
</span><a href="Data.Time.Format.ISO8601.html#iso8601Show"><span class="hs-identifier hs-var hs-var">iso8601Show</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format t -&gt; t -&gt; String
forall t. Format t -&gt; t -&gt; String
</span><a href="Data.Format.html#formatShow"><span class="hs-identifier hs-var">formatShow</span></a></span><span> </span><span class="annot"><span class="annottext">Format t
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span>
</span><span id="line-354"></span><span>
</span><span id="line-355"></span><span class="hs-comment">-- | Parse the most commonly used ISO 8601 format.</span><span>
</span><span id="line-356"></span><span id="local-6989586621679075567"><span id="local-6989586621679075568"><span class="annot"><a href="Data.Time.Format.ISO8601.html#iso8601ParseM"><span class="hs-identifier hs-type">iso8601ParseM</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="hs-cpp">
#if MIN_VERSION_base(4,9,0)
</span><span>    </span><span class="annot"><a href="../../base/src/Control.Monad.Fail.html#MonadFail"><span class="hs-identifier hs-type">MonadFail</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075568"><span class="hs-identifier hs-type">m</span></a></span><span class="hs-cpp">
#else
</span><span>    </span><span class="hs-identifier">Monad</span><span> </span><span class="hs-identifier">m</span><span class="hs-cpp">
#endif
</span><span>    </span><span class="hs-special">,</span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075567"><span class="hs-identifier hs-type">t</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679075568"><span class="hs-identifier hs-type">m</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679075567"><span class="hs-identifier hs-type">t</span></a></span></span></span><span>
</span><span id="line-363"></span><span id="iso8601ParseM"><span class="annot"><span class="annottext">iso8601ParseM :: forall (m :: * -&gt; *) t. (MonadFail m, ISO8601 t) =&gt; String -&gt; m t
</span><a href="Data.Time.Format.ISO8601.html#iso8601ParseM"><span class="hs-identifier hs-var hs-var">iso8601ParseM</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format t -&gt; String -&gt; m t
forall (m :: * -&gt; *) t. MonadFail m =&gt; Format t -&gt; String -&gt; m t
</span><a href="Data.Format.html#formatParseM"><span class="hs-identifier hs-var">formatParseM</span></a></span><span> </span><span class="annot"><span class="annottext">Format t
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span>
</span><span id="line-364"></span><span>
</span><span id="line-365"></span><span class="hs-comment">-- | @yyyy-mm-dd@ (ISO 8601:2004(E) sec. 4.1.2.2 extended format)</span><span>
</span><span id="line-366"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.Days.html#Day"><span class="hs-identifier hs-type">Day</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-367"></span><span>    </span><span id="local-6989586621679074958"><span class="annot"><span class="annottext">iso8601Format :: Format Day
</span><a href="#local-6989586621679074958"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format Day
</span><a href="Data.Time.Format.ISO8601.html#calendarFormat"><span class="hs-identifier hs-var">calendarFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span><span>
</span><span id="line-368"></span><span class="hs-comment">-- | @hh:mm:ss[.sss]@ (ISO 8601:2004(E) sec. 4.2.2.2, 4.2.2.4(a) extended format)</span><span>
</span><span id="line-369"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeOfDay.html#TimeOfDay"><span class="hs-identifier hs-type">TimeOfDay</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-370"></span><span>    </span><span id="local-6989586621679074955"><span class="annot"><span class="annottext">iso8601Format :: Format TimeOfDay
</span><a href="#local-6989586621679074955"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format TimeOfDay
</span><a href="Data.Time.Format.ISO8601.html#timeOfDayFormat"><span class="hs-identifier hs-var">timeOfDayFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span><span>
</span><span id="line-371"></span><span class="hs-comment">-- | @&#177;hh:mm@ (ISO 8601:2004(E) sec. 4.2.5.1 extended format)</span><span>
</span><span id="line-372"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.TimeZone.html#TimeZone"><span class="hs-identifier hs-type">TimeZone</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-373"></span><span>    </span><span id="local-6989586621679074952"><span class="annot"><span class="annottext">iso8601Format :: Format TimeZone
</span><a href="#local-6989586621679074952"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FormatExtension -&gt; Format TimeZone
</span><a href="Data.Time.Format.ISO8601.html#timeOffsetFormat"><span class="hs-identifier hs-var">timeOffsetFormat</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span><span>
</span><span id="line-374"></span><span class="hs-comment">-- | @yyyy-mm-ddThh:mm:ss[.sss]@ (ISO 8601:2004(E) sec. 4.3.2 extended format)</span><span>
</span><span id="line-375"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.LocalTime.html#LocalTime"><span class="hs-identifier hs-type">LocalTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-376"></span><span>    </span><span id="local-6989586621679074947"><span class="annot"><span class="annottext">iso8601Format :: Format LocalTime
</span><a href="#local-6989586621679074947"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format Day -&gt; Format TimeOfDay -&gt; Format LocalTime
</span><a href="Data.Time.Format.ISO8601.html#localTimeFormat"><span class="hs-identifier hs-var">localTimeFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span>
</span><span id="line-377"></span><span class="hs-comment">-- | @yyyy-mm-ddThh:mm:ss[.sss]&#177;hh:mm@ (ISO 8601:2004(E) sec. 4.3.2 extended format)</span><span>
</span><span id="line-378"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.ZonedTime.html#ZonedTime"><span class="hs-identifier hs-type">ZonedTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-379"></span><span>    </span><span id="local-6989586621679074942"><span class="annot"><span class="annottext">iso8601Format :: Format ZonedTime
</span><a href="#local-6989586621679074942"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format Day
-&gt; Format TimeOfDay -&gt; FormatExtension -&gt; Format ZonedTime
</span><a href="Data.Time.Format.ISO8601.html#zonedTimeFormat"><span class="hs-identifier hs-var">zonedTimeFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span> </span><span class="annot"><span class="annottext">FormatExtension
</span><a href="Data.Time.Format.ISO8601.html#ExtendedFormat"><span class="hs-identifier hs-var">ExtendedFormat</span></a></span><span>
</span><span id="line-380"></span><span class="hs-comment">-- | @yyyy-mm-ddThh:mm:ss[.sss]Z@ (ISO 8601:2004(E) sec. 4.3.2 extended format)</span><span>
</span><span id="line-381"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.Clock.Internal.UTCTime.html#UTCTime"><span class="hs-identifier hs-type">UTCTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-382"></span><span>    </span><span id="local-6989586621679074937"><span class="annot"><span class="annottext">iso8601Format :: Format UTCTime
</span><a href="#local-6989586621679074937"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format Day -&gt; Format TimeOfDay -&gt; Format UTCTime
</span><a href="Data.Time.Format.ISO8601.html#utcTimeFormat"><span class="hs-identifier hs-var">utcTimeFormat</span></a></span><span> </span><span class="annot"><span class="annottext">Format Day
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span> </span><span class="annot"><span class="annottext">Format TimeOfDay
forall t. ISO8601 t =&gt; Format t
</span><a href="Data.Time.Format.ISO8601.html#iso8601Format"><span class="hs-identifier hs-var">iso8601Format</span></a></span><span>
</span><span id="line-383"></span><span class="hs-comment">-- | @PyYmMdD@ (ISO 8601:2004(E) sec. 4.4.3.2)</span><span>
</span><span id="line-384"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.Calendar.CalendarDiffDays.html#CalendarDiffDays"><span class="hs-identifier hs-type">CalendarDiffDays</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-385"></span><span>    </span><span id="local-6989586621679074934"><span class="annot"><span class="annottext">iso8601Format :: Format CalendarDiffDays
</span><a href="#local-6989586621679074934"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format CalendarDiffDays
</span><a href="Data.Time.Format.ISO8601.html#durationDaysFormat"><span class="hs-identifier hs-var">durationDaysFormat</span></a></span><span>
</span><span id="line-386"></span><span class="hs-comment">-- | @PyYmMdDThHmMs[.sss]S@ (ISO 8601:2004(E) sec. 4.4.3.2)</span><span>
</span><span id="line-387"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="Data.Time.Format.ISO8601.html#ISO8601"><span class="hs-identifier hs-type">ISO8601</span></a></span><span> </span><span class="annot"><a href="Data.Time.LocalTime.Internal.CalendarDiffTime.html#CalendarDiffTime"><span class="hs-identifier hs-type">CalendarDiffTime</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-388"></span><span>    </span><span id="local-6989586621679074931"><span class="annot"><span class="annottext">iso8601Format :: Format CalendarDiffTime
</span><a href="#local-6989586621679074931"><span class="hs-identifier hs-var hs-var hs-var hs-var">iso8601Format</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Format CalendarDiffTime
</span><a href="Data.Time.Format.ISO8601.html#durationTimeFormat"><span class="hs-identifier hs-var">durationTimeFormat</span></a></span><span>
</span><span id="line-389"></span></pre></body></html>